Prog "FlatCurryXML" ["FlatCurry","Prelude","Read","XML"] [] [Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"FlatCurryXML","flatCurryDtd")) 0 Private (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (Rule [] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'k'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'k'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  '~'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  '/'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'w'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  '.'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"FlatCurryXML","flatCurry2XmlFile")) 2 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"Prelude","()")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude","writeFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"XML","showXmlDocWithParams")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlDocParams") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlDocParams") [])),"XML","DtdUrl")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"FlatCurryXML","flatCurryDtd")) []],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlDocParams") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","flatCurry2Xml")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","flatCurry2Xml")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Prog")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Prog") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","Prog") [])))))),"FlatCurry","Prog")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","flatCurry2Xml._#lambda2")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),3))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowType")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]),4))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowFunc")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]),5))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowOp")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]),6))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]]]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","flatCurry2Xml._#lambda2")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]])),"FlatCurryXML","qname2xmlattrs")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 0]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TVar 0]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 0]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 0]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 2) (FuncType (TVar 3) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 0]))),"Prelude","(,)")) [(Just (TVar 2),2),(Just (TVar 3),3)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Var ((Just (TVar 2),2))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 3) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Var ((Just (TVar 3),3))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TVar 0]]),"Prelude","[]")) []]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","xmlShowVisibity")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Public")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Private")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowType")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))),"FlatCurry","Type")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),5)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","xmlShowVisibity")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),3))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTVar")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowCons")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]),5))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))),"FlatCurry","TypeSyn")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),8),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),9)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),6))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","xmlShowVisibity")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),7))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTVar")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),8))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTypeExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),9))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowCons")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []))))),"FlatCurry","Cons")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","xmlShowVisibity")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4))]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTypeExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTypeExpr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","FuncType")) [(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTypeExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),2))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTypeExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),3))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","TCons")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTypeExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]),5))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6))])])),Func ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTVar")) 1 Private (FuncType (TVar 0) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TVar 0),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TVar 0),1))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowFunc")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") [])))))),"FlatCurry","Func")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4),(Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5),(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),6)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","xmlShowVisibity")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),4))]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowTypeExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []),5))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowRule")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),6))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowRule")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Rule")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Rule") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurry","Rule")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowVar")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),2))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"FlatCurry","External")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),4))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]])])),Func ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowVar")) 1 Private (FuncType (TVar 0) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TVar 0),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TVar 0),1))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Expr")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowVar")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),3)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),3))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),4),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","FuncCall")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","ConsCall")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","FuncPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),7)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","ConsPartCall")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),8)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),5))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),8))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]),6))]])]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),9),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowVar")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),9))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),10))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),11),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),11))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),12))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [(Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),13),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),15)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),13)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","Flex")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]])],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),14))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowBranch")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]),15))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),16),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),17)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr._#lambda3")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),16))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),17))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr._#lambda3")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 2) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TVar 2),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 2) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowVar")) [Var ((Just (TVar 2),2))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowLit")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","Literal")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Intc")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Floatc")) [(Just (TCons (Nothing,Nothing,"Prelude","Float") []),3)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Float") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Float") []),3))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Charc")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),4)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"XML","xtxt")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","ord")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),4))]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowBranch")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Pattern") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))),"FlatCurry","Pattern")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),4))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowVar")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),5))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),"FlatCurry","LPattern")) [(Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'b'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") []))),"XML","xml")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowLit")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Literal") []),6))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowExpr")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3))],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []]]])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []) (TCons (Nothing,Nothing,"XML","XmlExp") [])),"FlatCurryXML","xmlShowOp")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) []) (TCons ((Nothing,Nothing,"XML","XmlExp")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","OpDecl") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") [])))),"FlatCurry","Op")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]])),"FlatCurryXML","qname2xmlattrs")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),2))],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),3))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4))]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),"Prelude","[]")) []]]],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurryXML","xmlFile2FlatCurry")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []]))),"Prelude",">>=")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"XML","XmlExp") []])),"XML","readXmlFile")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurryXML","xmlFile2FlatCurry._#lambda4")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"FlatCurryXML","xmlFile2FlatCurry._#lambda4")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","IO")) [TCons ((Nothing,Nothing,"FlatCurry","Prog")) []])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Prog") []) (TCons (Nothing,Nothing,"Prelude","IO") [TCons (Nothing,Nothing,"FlatCurry","Prog") []])),"Prelude","return")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") [])),"FlatCurryXML","xml2FlatCurry")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Prog") [])),"FlatCurryXML","xml2FlatCurry")) 1 Public (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","Prog")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 174]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 174) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 174]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 174]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 173]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 173) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 173]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 173]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 172]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 172) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 172]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 172]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'g')) (Case  Flex (Var ((Just (TVar 13),12))) [Branch (Pattern ((Nothing,Just (TVar 13),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 14),3))) [Branch (Pattern ((Nothing,Just (TVar 14),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 169]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 169) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 169]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 169]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),13))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,15),(Nothing,16),(Nothing,17)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 168]),15))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 168) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 168]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 168]))),"Prelude",":")) [(Nothing,18),(Nothing,19)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),18))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 167]),19))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 167) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 167]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 167]))),"Prelude",":")) [(Nothing,20),(Nothing,21)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),20))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 166]),21))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 166) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 166]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 166]))),"Prelude",":")) [(Nothing,22),(Nothing,23)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),22))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 165]),23))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 165) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 165]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 165]))),"Prelude",":")) [(Nothing,24),(Nothing,25)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),24))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 164]),25))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 164) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 164]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 164]))),"Prelude",":")) [(Nothing,26),(Nothing,27)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),26))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 163]),27))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 163) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 163]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 163]))),"Prelude",":")) [(Nothing,28),(Nothing,29)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),28))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 29),29))) [Branch (Pattern ((Nothing,Just (TVar 29),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 30),16))) [Branch (Pattern ((Nothing,Just (TVar 30),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 160]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 160) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 160]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 160]))),"Prelude",":")) [(Nothing,30),(Nothing,31)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),30))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,32),(Nothing,33),(Nothing,34)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 159]),32))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 159) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 159]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 159]))),"Prelude",":")) [(Nothing,35),(Nothing,36)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),35))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 158]),36))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 158) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 158]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 158]))),"Prelude",":")) [(Nothing,37),(Nothing,38)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),37))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 157]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 157) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 157]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 157]))),"Prelude",":")) [(Nothing,39),(Nothing,40)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),39))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 156]),40))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 156) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 156]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 156]))),"Prelude",":")) [(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),41))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 155]),42))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 155) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 155]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 155]))),"Prelude",":")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),43))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 154]),44))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 154) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 154]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 154]))),"Prelude",":")) [(Nothing,45),(Nothing,46)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),45))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TVar 45),46))) [Branch (Pattern ((Nothing,Just (TVar 45),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 46),33))) [Branch (Pattern ((Nothing,Just (TVar 46),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 151]),31))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 151) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 151]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 151]))),"Prelude",":")) [(Nothing,47),(Nothing,48)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),47))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,49),(Nothing,50),(Nothing,51)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 150]),49))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 150) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 150]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 150]))),"Prelude",":")) [(Nothing,52),(Nothing,53)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),52))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 149]),53))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 149) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 149]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 149]))),"Prelude",":")) [(Nothing,54),(Nothing,55)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),54))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 148]),55))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 148) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 148]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 148]))),"Prelude",":")) [(Nothing,56),(Nothing,57)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),56))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 147]),57))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 147) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 147]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 147]))),"Prelude",":")) [(Nothing,58),(Nothing,59)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),58))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 146]),59))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 146) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 146]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 146]))),"Prelude",":")) [(Nothing,60),(Nothing,61)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),60))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 59),61))) [Branch (Pattern ((Nothing,Just (TVar 59),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 60),50))) [Branch (Pattern ((Nothing,Just (TVar 60),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 143]),48))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 143) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 143]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 143]))),"Prelude",":")) [(Nothing,62),(Nothing,63)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),62))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,64),(Nothing,65),(Nothing,66)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 142]),64))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 142) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 142]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 142]))),"Prelude",":")) [(Nothing,67),(Nothing,68)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),67))) [Branch (LPattern (Charc  'f')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 141]),68))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 141) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 141]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 141]))),"Prelude",":")) [(Nothing,69),(Nothing,70)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),69))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 140]),70))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 140) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 140]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 140]))),"Prelude",":")) [(Nothing,71),(Nothing,72)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),71))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 139]),72))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 139) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 139]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 139]))),"Prelude",":")) [(Nothing,73),(Nothing,74)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),73))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 138]),74))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 138) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 138]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 138]))),"Prelude",":")) [(Nothing,75),(Nothing,76)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),75))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 137]),76))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 137) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 137]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 137]))),"Prelude",":")) [(Nothing,77),(Nothing,78)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),77))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 136]),78))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 136) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 136]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 136]))),"Prelude",":")) [(Nothing,79),(Nothing,80)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),79))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 135]),80))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 135) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 135]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 135]))),"Prelude",":")) [(Nothing,81),(Nothing,82)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),81))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 134]),82))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 134) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 134]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 134]))),"Prelude",":")) [(Nothing,83),(Nothing,84)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),83))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 81),84))) [Branch (Pattern ((Nothing,Just (TVar 81),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 82),65))) [Branch (Pattern ((Nothing,Just (TVar 82),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 131]),63))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 131) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 131]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 131]))),"Prelude",":")) [(Nothing,85),(Nothing,86)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),85))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,87),(Nothing,88),(Nothing,89)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 130]),87))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 130) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 130]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 130]))),"Prelude",":")) [(Nothing,90),(Nothing,91)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),90))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 129]),91))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 129) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 129]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 129]))),"Prelude",":")) [(Nothing,92),(Nothing,93)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),92))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 128]),93))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 128) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 128]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 128]))),"Prelude",":")) [(Nothing,94),(Nothing,95)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),94))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 127]),95))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 127) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 127]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 127]))),"Prelude",":")) [(Nothing,96),(Nothing,97)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),96))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]),97))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 126) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]))),"Prelude",":")) [(Nothing,98),(Nothing,99)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),98))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 125]),99))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 125) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 125]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 125]))),"Prelude",":")) [(Nothing,100),(Nothing,101)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),100))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 124]),101))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 124) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 124]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 124]))),"Prelude",":")) [(Nothing,102),(Nothing,103)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),102))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 123]),103))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 123) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 123]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 123]))),"Prelude",":")) [(Nothing,104),(Nothing,105)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),104))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 122]),105))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 122) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 122]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 122]))),"Prelude",":")) [(Nothing,106),(Nothing,107)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),106))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 103),107))) [Branch (Pattern ((Nothing,Just (TVar 103),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 104),88))) [Branch (Pattern ((Nothing,Just (TVar 104),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 105),86))) [Branch (Pattern ((Nothing,Just (TVar 105),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","Prog") [])))))),"FlatCurry","Prog")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),17))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryXML","xml2FlatCurry._#lambda5")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),34))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") [])),"FlatCurryXML","flatx2typedecl")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),51))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","FuncDecl") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") [])),"FlatCurryXML","xml2FlatCurry._#lambda6")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),66))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","OpDecl") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") [])),"FlatCurryXML","xml2FlatCurry._#lambda7")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),89))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"FlatCurryXML","xml2FlatCurry._#lambda5")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 25]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 25) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 25]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 25]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 24]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 24) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 24]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 24]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 23]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 23) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 23]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 23]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 22]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 22) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 22]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 22]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 21]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 21) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 21]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 21]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 16),16))) [Branch (Pattern ((Nothing,Just (TVar 16),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 17),3))) [Branch (Pattern ((Nothing,Just (TVar 17),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") [])),"FlatCurryXML","xml2FlatCurry._#lambda6")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","FuncDecl")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'f')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 96) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 95) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 94) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TVar 12),12))) [Branch (Pattern ((Nothing,Just (TVar 12),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 92) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TVar 14),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 106) (FuncType (TVar 107) (TVar 14))),"Prelude","(,)")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]),15))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 90) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 89) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 88) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]),22))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 87) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 86) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),25))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]),26))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 85) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]))),"Prelude",":")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),27))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 27),28))) [Branch (Pattern ((Nothing,Just (TVar 27),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 83) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]))),"Prelude",":")) [(Nothing,29),(Nothing,30)]) (Case  Flex (Var ((Just (TVar 29),29))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 122) (FuncType (TVar 123) (TVar 29))),"Prelude","(,)")) [(Nothing,31),(Nothing,32)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]),31))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 81) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]))),"Prelude",":")) [(Nothing,33),(Nothing,34)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),33))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]),34))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 80) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]))),"Prelude",":")) [(Nothing,35),(Nothing,36)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),35))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]),36))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 79) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]))),"Prelude",":")) [(Nothing,37),(Nothing,38)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),37))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 78) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]))),"Prelude",":")) [(Nothing,39),(Nothing,40)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),39))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 38),40))) [Branch (Pattern ((Nothing,Just (TVar 38),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),30))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TVar 40),41))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 134) (FuncType (TVar 135) (TVar 40))),"Prelude","(,)")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]),43))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 74) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]))),"Prelude",":")) [(Nothing,45),(Nothing,46)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),45))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]),46))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 73) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]))),"Prelude",":")) [(Nothing,47),(Nothing,48)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),47))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]),48))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 72) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]))),"Prelude",":")) [(Nothing,49),(Nothing,50)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),49))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]),50))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 71) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]))),"Prelude",":")) [(Nothing,51),(Nothing,52)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),51))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]),52))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 70) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]))),"Prelude",":")) [(Nothing,53),(Nothing,54)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),53))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TVar 51),54))) [Branch (Pattern ((Nothing,Just (TVar 51),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]),42))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 68) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]))),"Prelude",":")) [(Nothing,55),(Nothing,56)]) (Case  Flex (Var ((Just (TVar 53),56))) [Branch (Pattern ((Nothing,Just (TVar 53),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 66) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]))),"Prelude",":")) [(Nothing,57),(Nothing,58)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]),58))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 65) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]))),"Prelude",":")) [(Nothing,59),(Nothing,60)]) (Case  Flex (Var ((Just (TVar 56),60))) [Branch (Pattern ((Nothing,Just (TVar 56),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Rule") []) (TCons (Nothing,Nothing,"FlatCurry","FuncDecl") [])))))),"FlatCurry","Func")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 57) (FuncType (TVar 58) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 57),16)),Var ((Just (TVar 58),32))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),44))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"FlatCurryXML","xvis2vis")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),55))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryXML","flatx2texp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),57))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"FlatCurryXML","flatx2FunBody")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),59))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") [])),"FlatCurryXML","xml2FlatCurry._#lambda7")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","OpDecl")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 103]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 103) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 103]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 103]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TVar 8),8))) [Branch (Pattern ((Nothing,Just (TVar 8),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 101]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 101) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 101]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 101]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TVar 10),9))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 109) (FuncType (TVar 110) (TVar 10))),"Prelude","(,)")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 99]),11))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 99) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 99]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 99]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 98]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 98) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 98]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 98]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 97]),16))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 97) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 97]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 97]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 96) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 95) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]),22))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 94) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 23),24))) [Branch (Pattern ((Nothing,Just (TVar 23),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 92) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TVar 25),25))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 125) (FuncType (TVar 126) (TVar 25))),"Prelude","(,)")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]),27))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 90) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]))),"Prelude",":")) [(Nothing,29),(Nothing,30)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),29))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]),30))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 89) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]))),"Prelude",":")) [(Nothing,31),(Nothing,32)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),31))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]),32))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 88) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]))),"Prelude",":")) [(Nothing,33),(Nothing,34)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),33))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]),34))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 87) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]))),"Prelude",":")) [(Nothing,35),(Nothing,36)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),35))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 34),36))) [Branch (Pattern ((Nothing,Just (TVar 34),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]),26))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 85) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]))),"Prelude",":")) [(Nothing,37),(Nothing,38)]) (Case  Flex (Var ((Just (TVar 36),37))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 137) (FuncType (TVar 138) (TVar 36))),"Prelude","(,)")) [(Nothing,39),(Nothing,40)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]),39))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 83) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]))),"Prelude",":")) [(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),41))) [Branch (LPattern (Charc  'f')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]),42))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 82) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]))),"Prelude",":")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),43))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]),44))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 81) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]))),"Prelude",":")) [(Nothing,45),(Nothing,46)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),45))) [Branch (LPattern (Charc  'x')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]),46))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 80) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]))),"Prelude",":")) [(Nothing,47),(Nothing,48)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),47))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]),48))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 79) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]))),"Prelude",":")) [(Nothing,49),(Nothing,50)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),49))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]),50))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 78) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]))),"Prelude",":")) [(Nothing,51),(Nothing,52)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),51))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TVar 49),52))) [Branch (Pattern ((Nothing,Just (TVar 49),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,53),(Nothing,54)]) (Case  Flex (Var ((Just (TVar 51),53))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 153) (FuncType (TVar 154) (TVar 51))),"Prelude","(,)")) [(Nothing,55),(Nothing,56)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]),55))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 74) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]))),"Prelude",":")) [(Nothing,57),(Nothing,58)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),57))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]),58))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 73) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]))),"Prelude",":")) [(Nothing,59),(Nothing,60)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),59))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]),60))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 72) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]))),"Prelude",":")) [(Nothing,61),(Nothing,62)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),61))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]),62))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 71) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]))),"Prelude",":")) [(Nothing,63),(Nothing,64)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),63))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TVar 60),64))) [Branch (Pattern ((Nothing,Just (TVar 60),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 61),54))) [Branch (Pattern ((Nothing,Just (TVar 61),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 62),4))) [Branch (Pattern ((Nothing,Just (TVar 62),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Fixity") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","OpDecl") [])))),"FlatCurry","Op")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 63) (FuncType (TVar 64) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 63),12)),Var ((Just (TVar 64),28))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])),"FlatCurryXML","flatx2Fixity")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),40))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),56))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") [])),"FlatCurryXML","flatx2typedecl")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeDecl")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 191]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 191) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 191]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 191]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 190]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 190) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 190]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 190]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 189]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 189) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 189]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 189]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 188]),12))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 188]),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 94) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TVar 15),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 203) (FuncType (TVar 204) (TVar 15))),"Prelude","(,)")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]),15))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 92) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 91) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 90) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]),22))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 89) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 89]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 88) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),25))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]),26))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 87) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]))),"Prelude",":")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),27))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 28),28))) [Branch (Pattern ((Nothing,Just (TVar 28),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 85) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]))),"Prelude",":")) [(Nothing,29),(Nothing,30)]) (Case  Flex (Var ((Just (TVar 30),29))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 219) (FuncType (TVar 220) (TVar 30))),"Prelude","(,)")) [(Nothing,31),(Nothing,32)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]),31))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 83) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]))),"Prelude",":")) [(Nothing,33),(Nothing,34)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),33))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]),34))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 82) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]))),"Prelude",":")) [(Nothing,35),(Nothing,36)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),35))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]),36))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 81) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]))),"Prelude",":")) [(Nothing,37),(Nothing,38)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),37))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 80) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]))),"Prelude",":")) [(Nothing,39),(Nothing,40)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),39))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 39),40))) [Branch (Pattern ((Nothing,Just (TVar 39),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]),30))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 78) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]))),"Prelude",":")) [(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TVar 41),42))) [Branch (Pattern ((Nothing,Just (TVar 41),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),43))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,45),(Nothing,46),(Nothing,47)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]),45))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 75) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]))),"Prelude",":")) [(Nothing,48),(Nothing,49)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),48))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]),49))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 74) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]))),"Prelude",":")) [(Nothing,50),(Nothing,51)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),50))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]),51))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 73) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]))),"Prelude",":")) [(Nothing,52),(Nothing,53)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),52))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]),53))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 72) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]))),"Prelude",":")) [(Nothing,54),(Nothing,55)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),54))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]),55))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 71) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]))),"Prelude",":")) [(Nothing,56),(Nothing,57)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),56))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]),57))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 70) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]))),"Prelude",":")) [(Nothing,58),(Nothing,59)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),58))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 56),59))) [Branch (Pattern ((Nothing,Just (TVar 56),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 57),46))) [Branch (Pattern ((Nothing,Just (TVar 57),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))),"FlatCurry","Type")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 58) (FuncType (TVar 59) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 58),16)),Var ((Just (TVar 59),32))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"FlatCurryXML","xvis2vis")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),41))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryXML","flatx2typedecl._#lambda8")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),47))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") [])),"FlatCurryXML","flatx2typedecl._#lambda9")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),44))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (Pattern ((Nothing,Just (FuncType (TVar 188) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 188]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 188]))),"Prelude",":")) [(Nothing,60),(Nothing,61)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),60))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 186]),61))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 186) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 186]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 186]))),"Prelude",":")) [(Nothing,62),(Nothing,63)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),62))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 185]),63))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 185) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 185]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 185]))),"Prelude",":")) [(Nothing,64),(Nothing,65)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),64))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TVar 100),65))) [Branch (Pattern ((Nothing,Just (TVar 100),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 183]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 183) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 183]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 183]))),"Prelude",":")) [(Nothing,66),(Nothing,67)]) (Case  Flex (Var ((Just (TVar 102),66))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 261) (FuncType (TVar 262) (TVar 102))),"Prelude","(,)")) [(Nothing,68),(Nothing,69)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 181]),68))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 181) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 181]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 181]))),"Prelude",":")) [(Nothing,70),(Nothing,71)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),70))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 180]),71))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 180) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 180]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 180]))),"Prelude",":")) [(Nothing,72),(Nothing,73)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),72))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 179]),73))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 179) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 179]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 179]))),"Prelude",":")) [(Nothing,74),(Nothing,75)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),74))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 178]),75))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 178) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 178]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 178]))),"Prelude",":")) [(Nothing,76),(Nothing,77)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),76))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 177]),77))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 177) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 177]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 177]))),"Prelude",":")) [(Nothing,78),(Nothing,79)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),78))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 176]),79))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 176) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 176]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 176]))),"Prelude",":")) [(Nothing,80),(Nothing,81)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),80))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 115),81))) [Branch (Pattern ((Nothing,Just (TVar 115),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 174]),67))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 174) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 174]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 174]))),"Prelude",":")) [(Nothing,82),(Nothing,83)]) (Case  Flex (Var ((Just (TVar 117),82))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 277) (FuncType (TVar 278) (TVar 117))),"Prelude","(,)")) [(Nothing,84),(Nothing,85)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 172]),84))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 172) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 172]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 172]))),"Prelude",":")) [(Nothing,86),(Nothing,87)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),86))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 171]),87))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 171) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 171]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 171]))),"Prelude",":")) [(Nothing,88),(Nothing,89)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),88))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 170]),89))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 170]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 170]))),"Prelude",":")) [(Nothing,90),(Nothing,91)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),90))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 169]),91))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 169) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 169]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 169]))),"Prelude",":")) [(Nothing,92),(Nothing,93)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),92))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 126),93))) [Branch (Pattern ((Nothing,Just (TVar 126),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 167]),83))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 167) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 167]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 167]))),"Prelude",":")) [(Nothing,94),(Nothing,95)]) (Case  Flex (Var ((Just (TVar 128),95))) [Branch (Pattern ((Nothing,Just (TVar 128),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 165]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 165) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 165]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 165]))),"Prelude",":")) [(Nothing,96),(Nothing,97)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),96))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,98),(Nothing,99),(Nothing,100)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 164]),98))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 164) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 164]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 164]))),"Prelude",":")) [(Nothing,101),(Nothing,102)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),101))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 163]),102))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 163) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 163]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 163]))),"Prelude",":")) [(Nothing,103),(Nothing,104)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),103))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 162]),104))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 162) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 162]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 162]))),"Prelude",":")) [(Nothing,105),(Nothing,106)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),105))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 161]),106))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 161) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 161]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 161]))),"Prelude",":")) [(Nothing,107),(Nothing,108)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),107))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 160]),108))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 160) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 160]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 160]))),"Prelude",":")) [(Nothing,109),(Nothing,110)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),109))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 159]),110))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 159) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 159]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 159]))),"Prelude",":")) [(Nothing,111),(Nothing,112)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),111))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 143),112))) [Branch (Pattern ((Nothing,Just (TVar 143),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 144),99))) [Branch (Pattern ((Nothing,Just (TVar 144),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 156]),97))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 156) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 156]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 156]))),"Prelude",":")) [(Nothing,113),(Nothing,114)]) (Case  Flex (Var ((Just (TVar 146),114))) [Branch (Pattern ((Nothing,Just (TVar 146),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeDecl") []))))),"FlatCurry","TypeSyn")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 147) (FuncType (TVar 148) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 147),69)),Var ((Just (TVar 148),85))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"FlatCurryXML","xvis2vis")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),94))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryXML","flatx2typedecl._#lambda10")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),100))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryXML","flatx2texp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),113))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryXML","flatx2typedecl._#lambda8")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 19) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 18) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 17) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TVar 12),12))) [Branch (Pattern ((Nothing,Just (TVar 12),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 13),3))) [Branch (Pattern ((Nothing,Just (TVar 13),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") [])),"FlatCurryXML","flatx2typedecl._#lambda9")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","ConsDecl")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 92) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 91) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 91]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 90) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 13),12))) [Branch (Pattern ((Nothing,Just (TVar 13),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 88) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TVar 15),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 102) (FuncType (TVar 103) (TVar 15))),"Prelude","(,)")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]),15))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 86) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 85) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 84]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 84) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 84]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 84]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]),22))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 83) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 82) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),25))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]),26))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 81) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]))),"Prelude",":")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),27))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 28),28))) [Branch (Pattern ((Nothing,Just (TVar 28),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 79) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]))),"Prelude",":")) [(Nothing,29),(Nothing,30)]) (Case  Flex (Var ((Just (TVar 30),29))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 118) (FuncType (TVar 119) (TVar 30))),"Prelude","(,)")) [(Nothing,31),(Nothing,32)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]),31))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 77) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]))),"Prelude",":")) [(Nothing,33),(Nothing,34)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),33))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),34))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,35),(Nothing,36)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),35))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]),36))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 75) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]))),"Prelude",":")) [(Nothing,37),(Nothing,38)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),37))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 74) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]))),"Prelude",":")) [(Nothing,39),(Nothing,40)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),39))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 39),40))) [Branch (Pattern ((Nothing,Just (TVar 39),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]),30))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 72) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]))),"Prelude",":")) [(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TVar 41),41))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 130) (FuncType (TVar 131) (TVar 41))),"Prelude","(,)")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]),43))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 70) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]))),"Prelude",":")) [(Nothing,45),(Nothing,46)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),45))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]),46))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 69) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]))),"Prelude",":")) [(Nothing,47),(Nothing,48)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),47))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]),48))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 68) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]))),"Prelude",":")) [(Nothing,49),(Nothing,50)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),49))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]),50))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 67) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]))),"Prelude",":")) [(Nothing,51),(Nothing,52)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),51))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]),52))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 66) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]))),"Prelude",":")) [(Nothing,53),(Nothing,54)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),53))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TVar 52),54))) [Branch (Pattern ((Nothing,Just (TVar 52),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]),42))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 64) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]))),"Prelude",":")) [(Nothing,55),(Nothing,56)]) (Case  Flex (Var ((Just (TVar 54),56))) [Branch (Pattern ((Nothing,Just (TVar 54),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Visibility") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","ConsDecl") []))))),"FlatCurry","Cons")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 55) (FuncType (TVar 56) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 55),16)),Var ((Just (TVar 56),32))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),44))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"FlatCurryXML","xvis2vis")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),55))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryXML","flatx2texp")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryXML","flatx2typedecl._#lambda10")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 19) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 18) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 17) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TVar 12),12))) [Branch (Pattern ((Nothing,Just (TVar 12),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 13),3))) [Branch (Pattern ((Nothing,Just (TVar 13),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"FlatCurryXML","flatx2FunBody")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","Rule")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 32]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 32) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 32]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 32]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'x')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 31) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 30]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 30) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 30]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 30]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 29]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 29) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 29]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 29]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 28]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 28) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 28]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 28]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 27]),16))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 27) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 27]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 27]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 26]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 26) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 26]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 26]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TVar 21),20))) [Branch (Pattern ((Nothing,Just (TVar 21),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 22),3))) [Branch (Pattern ((Nothing,Just (TVar 22),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","Rule") [])),"FlatCurry","External")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 87) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]),22))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 86) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 85) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),25))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 39),26))) [Branch (Pattern ((Nothing,Just (TVar 39),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 40),3))) [Branch (Pattern ((Nothing,Just (TVar 40),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 82) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 82]))),"Prelude",":")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),27))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,29),(Nothing,30),(Nothing,31)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]),29))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 81) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]))),"Prelude",":")) [(Nothing,32),(Nothing,33)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),32))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]),33))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 80) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]))),"Prelude",":")) [(Nothing,34),(Nothing,35)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),34))) [Branch (LPattern (Charc  'h')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]),35))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 79) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]))),"Prelude",":")) [(Nothing,36),(Nothing,37)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),36))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 49),37))) [Branch (Pattern ((Nothing,Just (TVar 49),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 50),30))) [Branch (Pattern ((Nothing,Just (TVar 50),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),28))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,38),(Nothing,39)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),38))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,40),(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]),40))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 75) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]))),"Prelude",":")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),43))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]),44))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 74) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]))),"Prelude",":")) [(Nothing,45),(Nothing,46)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),45))) [Branch (LPattern (Charc  'h')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]),46))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 73) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]))),"Prelude",":")) [(Nothing,47),(Nothing,48)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),47))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 59),48))) [Branch (Pattern ((Nothing,Just (TVar 59),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 60),41))) [Branch (Pattern ((Nothing,Just (TVar 60),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]),42))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 70) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]))),"Prelude",":")) [(Nothing,49),(Nothing,50)]) (Case  Flex (Var ((Just (TVar 62),50))) [Branch (Pattern ((Nothing,Just (TVar 62),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 63),39))) [Branch (Pattern ((Nothing,Just (TVar 63),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Rule") []))),"FlatCurry","Rule")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryXML","flatx2var")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),31))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),49))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryXML","flatx2var")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 16) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 15]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 15) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 15]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 15]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TVar 10),10))) [Branch (Pattern ((Nothing,Just (TVar 10),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 11),3))) [Branch (Pattern ((Nothing,Just (TVar 11),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 17) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 16) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 16]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TVar 11),10))) [Branch (Pattern ((Nothing,Just (TVar 11),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 12),3))) [Branch (Pattern ((Nothing,Just (TVar 12),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Var")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]]])])])])])])]),Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 57) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 31) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 31]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TVar 22),14))) [Branch (Pattern ((Nothing,Just (TVar 22),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 23),3))) [Branch (Pattern ((Nothing,Just (TVar 23),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 28]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 28) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 28]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 28]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TVar 25),16))) [Branch (Pattern ((Nothing,Just (TVar 25),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurry","Lit")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurryXML","flatx2lit")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),15))]])])])])])])]),Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 56) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]),18))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 35),3))) [Branch (Pattern ((Nothing,Just (TVar 35),"Prelude","[]")) []) (Let [((Nothing,19),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []])),"FlatCurryXML","flatx2let")) [Var ((Just (TVar 36),4))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),20),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"FlatCurryXML","flatx2exp._#selFP3#bindings")) [Var ((Just (TVar 37),19))])] (Let [((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),21),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp._#selFP4#exp")) [Var ((Just (TVar 38),19))])] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),20)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),21))]))))]),Branch (Pattern ((Nothing,Just (FuncType (TVar 55) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]))),"Prelude",":")) [(Nothing,22),(Nothing,23)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),22))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 53]),23))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 53) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 53]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 53]))),"Prelude",":")) [(Nothing,24),(Nothing,25)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),24))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 52]),25))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 52) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 52]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 52]))),"Prelude",":")) [(Nothing,26),(Nothing,27)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),26))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TVar 45),27))) [Branch (Pattern ((Nothing,Just (TVar 45),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 46),3))) [Branch (Pattern ((Nothing,Just (TVar 46),"Prelude","[]")) []) (Let [((Nothing,28),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []])),"FlatCurryXML","flatx2let")) [Var ((Just (TVar 47),4))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),29),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"FlatCurryXML","flatx2exp._#selFP6#bindings")) [Var ((Just (TVar 48),28))])] (Let [((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),30),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp._#selFP7#exp")) [Var ((Just (TVar 49),28))])] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Let")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),29)),Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),30))]))))])])])])])])])])])])])]),Branch (LPattern (Charc  'f')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 299]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 299) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 299]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 299]))),"Prelude",":")) [(Nothing,31),(Nothing,32)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),31))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 230]),32))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 230) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 230]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 230]))),"Prelude",":")) [(Nothing,33),(Nothing,34)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),33))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 229]),34))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 229) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 229]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 229]))),"Prelude",":")) [(Nothing,35),(Nothing,36)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),35))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 228]),36))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 228) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 228]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 228]))),"Prelude",":")) [(Nothing,37),(Nothing,38)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),37))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 126) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]))),"Prelude",":")) [(Nothing,39),(Nothing,40)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),39))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 125]),40))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 125) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 125]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 125]))),"Prelude",":")) [(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),41))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 124]),42))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 124) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 124]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 124]))),"Prelude",":")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),43))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TVar 72),44))) [Branch (Pattern ((Nothing,Just (TVar 72),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 122]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 122) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 122]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 122]))),"Prelude",":")) [(Nothing,45),(Nothing,46)]) (Case  Flex (Var ((Just (TVar 74),45))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 547) (FuncType (TVar 548) (TVar 74))),"Prelude","(,)")) [(Nothing,47),(Nothing,48)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 120]),47))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 120) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 120]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 120]))),"Prelude",":")) [(Nothing,49),(Nothing,50)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),49))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 119]),50))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 119) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 119]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 119]))),"Prelude",":")) [(Nothing,51),(Nothing,52)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),51))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 118]),52))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 118) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 118]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 118]))),"Prelude",":")) [(Nothing,53),(Nothing,54)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),53))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 117]),54))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 117) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 117]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 117]))),"Prelude",":")) [(Nothing,55),(Nothing,56)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),55))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 116]),56))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 116) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 116]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 116]))),"Prelude",":")) [(Nothing,57),(Nothing,58)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),57))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 115]),58))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 115) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 115]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 115]))),"Prelude",":")) [(Nothing,59),(Nothing,60)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),59))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 87),60))) [Branch (Pattern ((Nothing,Just (TVar 87),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 113]),46))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 113) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 113]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 113]))),"Prelude",":")) [(Nothing,61),(Nothing,62)]) (Case  Flex (Var ((Just (TVar 89),61))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 563) (FuncType (TVar 564) (TVar 89))),"Prelude","(,)")) [(Nothing,63),(Nothing,64)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 111]),63))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 111) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 111]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 111]))),"Prelude",":")) [(Nothing,65),(Nothing,66)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),65))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 110]),66))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 110) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 110]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 110]))),"Prelude",":")) [(Nothing,67),(Nothing,68)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),67))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 109]),68))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 109) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 109]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 109]))),"Prelude",":")) [(Nothing,69),(Nothing,70)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),69))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 108]),70))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 108) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 108]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 108]))),"Prelude",":")) [(Nothing,71),(Nothing,72)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),71))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 98),72))) [Branch (Pattern ((Nothing,Just (TVar 98),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 99),62))) [Branch (Pattern ((Nothing,Just (TVar 99),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","FuncCall")) [],Comb ConsCall ((Nothing,Just (FuncType (TVar 100) (FuncType (TVar 101) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 100),48)),Var ((Just (TVar 101),64))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 227]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 227) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 227]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 227]))),"Prelude",":")) [(Nothing,73),(Nothing,74)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),73))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 226]),74))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 226) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 226]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 226]))),"Prelude",":")) [(Nothing,75),(Nothing,76)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),75))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 225]),76))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 225) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 225]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 225]))),"Prelude",":")) [(Nothing,77),(Nothing,78)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),77))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 224]),78))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 224) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 224]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 224]))),"Prelude",":")) [(Nothing,79),(Nothing,80)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),79))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 223]),80))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 223) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 223]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 223]))),"Prelude",":")) [(Nothing,81),(Nothing,82)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),81))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 222]),82))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 222) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 222]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 222]))),"Prelude",":")) [(Nothing,83),(Nothing,84)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),83))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 221]),84))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 221) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 221]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 221]))),"Prelude",":")) [(Nothing,85),(Nothing,86)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),85))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TVar 141),86))) [Branch (Pattern ((Nothing,Just (TVar 141),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 219]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 219) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 219]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 219]))),"Prelude",":")) [(Nothing,87),(Nothing,88)]) (Case  Flex (Var ((Just (TVar 143),87))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 594) (FuncType (TVar 595) (TVar 143))),"Prelude","(,)")) [(Nothing,89),(Nothing,90)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 217]),89))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 217) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 217]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 217]))),"Prelude",":")) [(Nothing,91),(Nothing,92)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),91))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 216]),92))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 216) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 216]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 216]))),"Prelude",":")) [(Nothing,93),(Nothing,94)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),93))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 215]),94))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 215) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 215]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 215]))),"Prelude",":")) [(Nothing,95),(Nothing,96)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),95))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 214]),96))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 214) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 214]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 214]))),"Prelude",":")) [(Nothing,97),(Nothing,98)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),97))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 213]),98))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 213) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 213]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 213]))),"Prelude",":")) [(Nothing,99),(Nothing,100)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),99))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 212]),100))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 212) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 212]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 212]))),"Prelude",":")) [(Nothing,101),(Nothing,102)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),101))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 156),102))) [Branch (Pattern ((Nothing,Just (TVar 156),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 210]),88))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 210) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 210]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 210]))),"Prelude",":")) [(Nothing,103),(Nothing,104)]) (Case  Flex (Var ((Just (TVar 158),103))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 610) (FuncType (TVar 611) (TVar 158))),"Prelude","(,)")) [(Nothing,105),(Nothing,106)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 208]),105))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 208) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 208]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 208]))),"Prelude",":")) [(Nothing,107),(Nothing,108)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),107))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 207]),108))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 207) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 207]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 207]))),"Prelude",":")) [(Nothing,109),(Nothing,110)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),109))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 206]),110))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 206) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 206]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 206]))),"Prelude",":")) [(Nothing,111),(Nothing,112)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),111))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 205]),112))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 205) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 205]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 205]))),"Prelude",":")) [(Nothing,113),(Nothing,114)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),113))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 167),114))) [Branch (Pattern ((Nothing,Just (TVar 167),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 203]),104))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 203) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 203]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 203]))),"Prelude",":")) [(Nothing,115),(Nothing,116)]) (Case  Flex (Var ((Just (TVar 169),115))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 622) (FuncType (TVar 623) (TVar 169))),"Prelude","(,)")) [(Nothing,117),(Nothing,118)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 201]),117))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 201) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 201]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 201]))),"Prelude",":")) [(Nothing,119),(Nothing,120)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),119))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 200]),120))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 200) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 200]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 200]))),"Prelude",":")) [(Nothing,121),(Nothing,122)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),121))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 199]),122))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 199) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 199]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 199]))),"Prelude",":")) [(Nothing,123),(Nothing,124)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),123))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 198]),124))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 198) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 198]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 198]))),"Prelude",":")) [(Nothing,125),(Nothing,126)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),125))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 197]),126))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 197) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 197]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 197]))),"Prelude",":")) [(Nothing,127),(Nothing,128)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),127))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 196]),128))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 196) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 196]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 196]))),"Prelude",":")) [(Nothing,129),(Nothing,130)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),129))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 195]),130))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 195) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 195]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 195]))),"Prelude",":")) [(Nothing,131),(Nothing,132)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),131))) [Branch (LPattern (Charc  'g')) (Case  Flex (Var ((Just (TVar 184),132))) [Branch (Pattern ((Nothing,Just (TVar 184),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 185),116))) [Branch (Pattern ((Nothing,Just (TVar 185),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","FuncPartCall")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),118))]],Comb ConsCall ((Nothing,Just (FuncType (TVar 187) (FuncType (TVar 188) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 187),90)),Var ((Just (TVar 188),106))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 279]),32))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 279) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 279]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 279]))),"Prelude",":")) [(Nothing,133),(Nothing,134)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),133))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 278]),134))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 278) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 278]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 278]))),"Prelude",":")) [(Nothing,135),(Nothing,136)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),135))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 235),136))) [Branch (Pattern ((Nothing,Just (TVar 235),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 236),3))) [Branch (Pattern ((Nothing,Just (TVar 236),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 275]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 275) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 275]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 275]))),"Prelude",":")) [(Nothing,137),(Nothing,138)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),137))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,139),(Nothing,140),(Nothing,141)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 274]),139))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 274) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 274]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 274]))),"Prelude",":")) [(Nothing,142),(Nothing,143)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),142))) [Branch (LPattern (Charc  'f')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 273]),143))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 273) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 273]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 273]))),"Prelude",":")) [(Nothing,144),(Nothing,145)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),144))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 272]),145))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 272) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 272]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 272]))),"Prelude",":")) [(Nothing,146),(Nothing,147)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),146))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 271]),147))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 271) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 271]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 271]))),"Prelude",":")) [(Nothing,148),(Nothing,149)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),148))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 270]),149))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 270) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 270]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 270]))),"Prelude",":")) [(Nothing,150),(Nothing,151)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),150))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 269]),151))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 269) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 269]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 269]))),"Prelude",":")) [(Nothing,152),(Nothing,153)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),152))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 268]),153))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 268) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 268]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 268]))),"Prelude",":")) [(Nothing,154),(Nothing,155)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),154))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 267]),155))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 267) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 267]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 267]))),"Prelude",":")) [(Nothing,156),(Nothing,157)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),156))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 255),157))) [Branch (Pattern ((Nothing,Just (TVar 255),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 256),140))) [Branch (Pattern ((Nothing,Just (TVar 256),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 264]),138))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 264) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 264]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 264]))),"Prelude",":")) [(Nothing,158),(Nothing,159)]) (Case  Flex (Var ((Just (TVar 258),159))) [Branch (Pattern ((Nothing,Just (TVar 258),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Free")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryXML","flatx2var")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),141))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),158))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 298]),32))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 298) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 298]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 298]))),"Prelude",":")) [(Nothing,160),(Nothing,161)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),160))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 297]),161))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 297) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 297]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 297]))),"Prelude",":")) [(Nothing,162),(Nothing,163)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),162))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 296]),163))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 296) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 296]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 296]))),"Prelude",":")) [(Nothing,164),(Nothing,165)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),164))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 286),165))) [Branch (Pattern ((Nothing,Just (TVar 286),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 287),3))) [Branch (Pattern ((Nothing,Just (TVar 287),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 293]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 293) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 293]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 293]))),"Prelude",":")) [(Nothing,166),(Nothing,167)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","Flex")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),166))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") [])),"FlatCurryXML","flatx2branch")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),167))]])])])])])])])])])])])]),Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 489]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 489) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 489]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 489]))),"Prelude",":")) [(Nothing,168),(Nothing,169)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),168))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 472]),169))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 472) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 472]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 472]))),"Prelude",":")) [(Nothing,170),(Nothing,171)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),170))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 471]),171))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 471) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 471]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 471]))),"Prelude",":")) [(Nothing,172),(Nothing,173)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),172))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 470]),173))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 470) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 470]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 470]))),"Prelude",":")) [(Nothing,174),(Nothing,175)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),174))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 368]),175))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 368) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 368]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 368]))),"Prelude",":")) [(Nothing,176),(Nothing,177)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),176))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 367]),177))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 367) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 367]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 367]))),"Prelude",":")) [(Nothing,178),(Nothing,179)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),178))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 366]),179))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 366) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 366]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 366]))),"Prelude",":")) [(Nothing,180),(Nothing,181)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),180))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TVar 314),181))) [Branch (Pattern ((Nothing,Just (TVar 314),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 364]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 364) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 364]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 364]))),"Prelude",":")) [(Nothing,182),(Nothing,183)]) (Case  Flex (Var ((Just (TVar 316),182))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 704) (FuncType (TVar 705) (TVar 316))),"Prelude","(,)")) [(Nothing,184),(Nothing,185)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 362]),184))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 362) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 362]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 362]))),"Prelude",":")) [(Nothing,186),(Nothing,187)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),186))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 361]),187))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 361) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 361]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 361]))),"Prelude",":")) [(Nothing,188),(Nothing,189)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),188))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 360]),189))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 360) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 360]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 360]))),"Prelude",":")) [(Nothing,190),(Nothing,191)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),190))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 359]),191))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 359) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 359]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 359]))),"Prelude",":")) [(Nothing,192),(Nothing,193)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),192))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 358]),193))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 358) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 358]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 358]))),"Prelude",":")) [(Nothing,194),(Nothing,195)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),194))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 357]),195))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 357) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 357]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 357]))),"Prelude",":")) [(Nothing,196),(Nothing,197)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),196))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 329),197))) [Branch (Pattern ((Nothing,Just (TVar 329),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 355]),183))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 355) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 355]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 355]))),"Prelude",":")) [(Nothing,198),(Nothing,199)]) (Case  Flex (Var ((Just (TVar 331),198))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 720) (FuncType (TVar 721) (TVar 331))),"Prelude","(,)")) [(Nothing,200),(Nothing,201)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 353]),200))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 353) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 353]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 353]))),"Prelude",":")) [(Nothing,202),(Nothing,203)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),202))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 352]),203))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 352) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 352]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 352]))),"Prelude",":")) [(Nothing,204),(Nothing,205)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),204))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 351]),205))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 351) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 351]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 351]))),"Prelude",":")) [(Nothing,206),(Nothing,207)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),206))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 350]),207))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 350) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 350]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 350]))),"Prelude",":")) [(Nothing,208),(Nothing,209)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),208))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 340),209))) [Branch (Pattern ((Nothing,Just (TVar 340),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 341),199))) [Branch (Pattern ((Nothing,Just (TVar 341),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CombType") []),"FlatCurry","ConsCall")) [],Comb ConsCall ((Nothing,Just (FuncType (TVar 342) (FuncType (TVar 343) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 342),185)),Var ((Just (TVar 343),201))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 469]),175))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 469) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 469]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 469]))),"Prelude",":")) [(Nothing,210),(Nothing,211)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),210))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 468]),211))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 468) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 468]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 468]))),"Prelude",":")) [(Nothing,212),(Nothing,213)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),212))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 467]),213))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 467) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 467]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 467]))),"Prelude",":")) [(Nothing,214),(Nothing,215)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),214))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 466]),215))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 466) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 466]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 466]))),"Prelude",":")) [(Nothing,216),(Nothing,217)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),216))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 465]),217))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 465) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 465]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 465]))),"Prelude",":")) [(Nothing,218),(Nothing,219)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),218))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 464]),219))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 464) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 464]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 464]))),"Prelude",":")) [(Nothing,220),(Nothing,221)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),220))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 463]),221))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 463) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 463]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 463]))),"Prelude",":")) [(Nothing,222),(Nothing,223)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),222))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TVar 383),223))) [Branch (Pattern ((Nothing,Just (TVar 383),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 461]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 461) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 461]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 461]))),"Prelude",":")) [(Nothing,224),(Nothing,225)]) (Case  Flex (Var ((Just (TVar 385),224))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 751) (FuncType (TVar 752) (TVar 385))),"Prelude","(,)")) [(Nothing,226),(Nothing,227)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 459]),226))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 459) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 459]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 459]))),"Prelude",":")) [(Nothing,228),(Nothing,229)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),228))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 458]),229))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 458) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 458]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 458]))),"Prelude",":")) [(Nothing,230),(Nothing,231)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),230))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 457]),231))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 457) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 457]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 457]))),"Prelude",":")) [(Nothing,232),(Nothing,233)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),232))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 456]),233))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 456) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 456]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 456]))),"Prelude",":")) [(Nothing,234),(Nothing,235)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),234))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 455]),235))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 455) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 455]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 455]))),"Prelude",":")) [(Nothing,236),(Nothing,237)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),236))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 454]),237))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 454) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 454]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 454]))),"Prelude",":")) [(Nothing,238),(Nothing,239)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),238))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 398),239))) [Branch (Pattern ((Nothing,Just (TVar 398),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 452]),225))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 452) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 452]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 452]))),"Prelude",":")) [(Nothing,240),(Nothing,241)]) (Case  Flex (Var ((Just (TVar 400),240))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 767) (FuncType (TVar 768) (TVar 400))),"Prelude","(,)")) [(Nothing,242),(Nothing,243)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 450]),242))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 450) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 450]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 450]))),"Prelude",":")) [(Nothing,244),(Nothing,245)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),244))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 449]),245))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 449) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 449]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 449]))),"Prelude",":")) [(Nothing,246),(Nothing,247)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),246))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 448]),247))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 448) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 448]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 448]))),"Prelude",":")) [(Nothing,248),(Nothing,249)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),248))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 447]),249))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 447) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 447]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 447]))),"Prelude",":")) [(Nothing,250),(Nothing,251)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),250))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 409),251))) [Branch (Pattern ((Nothing,Just (TVar 409),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 445]),241))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 445) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 445]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 445]))),"Prelude",":")) [(Nothing,252),(Nothing,253)]) (Case  Flex (Var ((Just (TVar 411),252))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 779) (FuncType (TVar 780) (TVar 411))),"Prelude","(,)")) [(Nothing,254),(Nothing,255)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 443]),254))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 443) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 443]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 443]))),"Prelude",":")) [(Nothing,256),(Nothing,257)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),256))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 442]),257))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 442) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 442]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 442]))),"Prelude",":")) [(Nothing,258),(Nothing,259)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),258))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 441]),259))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 441) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 441]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 441]))),"Prelude",":")) [(Nothing,260),(Nothing,261)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),260))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 440]),261))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 440) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 440]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 440]))),"Prelude",":")) [(Nothing,262),(Nothing,263)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),262))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 439]),263))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 439) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 439]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 439]))),"Prelude",":")) [(Nothing,264),(Nothing,265)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),264))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 438]),265))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 438) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 438]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 438]))),"Prelude",":")) [(Nothing,266),(Nothing,267)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),266))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 437]),267))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 437) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 437]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 437]))),"Prelude",":")) [(Nothing,268),(Nothing,269)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),268))) [Branch (LPattern (Charc  'g')) (Case  Flex (Var ((Just (TVar 426),269))) [Branch (Pattern ((Nothing,Just (TVar 426),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 427),253))) [Branch (Pattern ((Nothing,Just (TVar 427),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CombType") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Comb")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","CombType") [])),"FlatCurry","ConsPartCall")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),255))]],Comb ConsCall ((Nothing,Just (FuncType (TVar 429) (FuncType (TVar 430) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 429),227)),Var ((Just (TVar 430),243))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 488]),169))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 488) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 488]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 488]))),"Prelude",":")) [(Nothing,270),(Nothing,271)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),270))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 487]),271))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 487) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 487]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 487]))),"Prelude",":")) [(Nothing,272),(Nothing,273)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),272))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 477),273))) [Branch (Pattern ((Nothing,Just (TVar 477),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 478),3))) [Branch (Pattern ((Nothing,Just (TVar 478),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 484]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 484) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 484]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 484]))),"Prelude",":")) [(Nothing,274),(Nothing,275)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","CaseType") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])))),"FlatCurry","Case")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","CaseType") []),"FlatCurry","Rigid")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),274))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") [])),"FlatCurryXML","flatx2branch")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),275))]])])])])])])])])])]),Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 504]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 504) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 504]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 504]))),"Prelude",":")) [(Nothing,276),(Nothing,277)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),276))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TVar 492),277))) [Branch (Pattern ((Nothing,Just (TVar 492),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 493),3))) [Branch (Pattern ((Nothing,Just (TVar 493),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 501]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 501) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 501]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 501]))),"Prelude",":")) [(Nothing,278),(Nothing,279)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 500]),279))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 500) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 500]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 500]))),"Prelude",":")) [(Nothing,280),(Nothing,281)]) (Case  Flex (Var ((Just (TVar 496),281))) [Branch (Pattern ((Nothing,Just (TVar 496),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") []))),"FlatCurry","Or")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),278))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),280))]])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"FlatCurryXML","flatx2exp._#selFP3#bindings")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp._#selFP4#exp")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"FlatCurryXML","flatx2exp._#selFP6#bindings")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp._#selFP7#exp")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []])),"FlatCurryXML","flatx2let")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"XML","XmlExp")) []]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 13) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (TVar 13),"Prelude","[]")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),2))]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),5)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),9),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'b')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 66) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 65) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 64) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]),16))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 63) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 62) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 61]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 61) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 61]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 61]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  'g')) (Case  Flex (Var ((Just (TVar 27),22))) [Branch (Pattern ((Nothing,Just (TVar 27),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 28),7))) [Branch (Pattern ((Nothing,Just (TVar 28),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 58) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),23))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,25),(Nothing,26),(Nothing,27)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]),25))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 57) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]))),"Prelude",":")) [(Nothing,28),(Nothing,29)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),28))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]),29))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 56) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]))),"Prelude",":")) [(Nothing,30),(Nothing,31)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),30))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]),31))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 55) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]))),"Prelude",":")) [(Nothing,32),(Nothing,33)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),32))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TVar 37),33))) [Branch (Pattern ((Nothing,Just (TVar 37),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 38),26))) [Branch (Pattern ((Nothing,Just (TVar 38),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 52]),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 52) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 52]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 52]))),"Prelude",":")) [(Nothing,34),(Nothing,35)]) (Case  Flex (Var ((Just (TVar 40),35))) [Branch (Pattern ((Nothing,Just (TVar 40),"Prelude","[]")) []) (Let [((Nothing,36),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []])),"FlatCurryXML","flatx2let")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 43) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 43]))),"Prelude",":")) [Var ((Just (TVar 41),4)),Var ((Just (TVar 42),5))]])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),37),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"FlatCurryXML","flatx2let._#selFP9#bindings")) [Var ((Just (TVar 44),36))])] (Let [((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),38),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2let._#selFP10#exp")) [Var ((Just (TVar 45),36))])] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),27))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),34))]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),37))],Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),38))]))))])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]])),"FlatCurryXML","flatx2let._#selFP9#bindings")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),2),(Just (TVar 2),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2let._#selFP10#exp")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]],TCons ((Nothing,Nothing,"FlatCurry","Expr")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Expr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"FlatCurry","Expr") []]],TCons (Nothing,Nothing,"FlatCurry","Expr") []]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)]) (Var ((Just (TCons (Nothing,Nothing,"FlatCurry","Expr") []),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") [])),"FlatCurryXML","flatx2branch")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","BranchExpr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'b')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 235]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 235) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 235]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 235]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 234]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 234) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 234]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 234]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 233]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 233) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 233]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 233]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 232]),12))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 232) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 232]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 232]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 231) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 231]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'h')) (Case  Flex (Var ((Just (TVar 17),16))) [Branch (Pattern ((Nothing,Just (TVar 17),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 18),3))) [Branch (Pattern ((Nothing,Just (TVar 18),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 228]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 228) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 228]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 228]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),17))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Nothing,19),(Nothing,20),(Nothing,21)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 227]),19))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 227) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 227]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 227]))),"Prelude",":")) [(Nothing,22),(Nothing,23)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),22))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 97]),23))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 97) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 97]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 97]))),"Prelude",":")) [(Nothing,24),(Nothing,25)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),24))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]),25))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 96) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 96]))),"Prelude",":")) [(Nothing,26),(Nothing,27)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),26))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]),27))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 95) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]))),"Prelude",":")) [(Nothing,28),(Nothing,29)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),28))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]),29))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 94) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]))),"Prelude",":")) [(Nothing,30),(Nothing,31)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),30))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 93]),31))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 93) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 93]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 93]))),"Prelude",":")) [(Nothing,32),(Nothing,33)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),32))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]),33))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 92) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]))),"Prelude",":")) [(Nothing,34),(Nothing,35)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),34))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TVar 35),35))) [Branch (Pattern ((Nothing,Just (TVar 35),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 90) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 90]))),"Prelude",":")) [(Nothing,36),(Nothing,37)]) (Case  Flex (Var ((Just (TVar 37),36))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 268) (FuncType (TVar 269) (TVar 37))),"Prelude","(,)")) [(Nothing,38),(Nothing,39)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]),38))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 88) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 88]))),"Prelude",":")) [(Nothing,40),(Nothing,41)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),40))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]),41))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 87) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 87]))),"Prelude",":")) [(Nothing,42),(Nothing,43)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),42))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]),43))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 86) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 86]))),"Prelude",":")) [(Nothing,44),(Nothing,45)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),44))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]),45))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 85) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 85]))),"Prelude",":")) [(Nothing,46),(Nothing,47)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),46))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 84]),47))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 84) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 84]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 84]))),"Prelude",":")) [(Nothing,48),(Nothing,49)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),48))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]),49))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 83) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 83]))),"Prelude",":")) [(Nothing,50),(Nothing,51)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),50))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 50),51))) [Branch (Pattern ((Nothing,Just (TVar 50),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]),37))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 81) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]))),"Prelude",":")) [(Nothing,52),(Nothing,53)]) (Case  Flex (Var ((Just (TVar 52),52))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 284) (FuncType (TVar 285) (TVar 52))),"Prelude","(,)")) [(Nothing,54),(Nothing,55)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]),54))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 79) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]))),"Prelude",":")) [(Nothing,56),(Nothing,57)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),56))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]),57))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 78) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]))),"Prelude",":")) [(Nothing,58),(Nothing,59)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),58))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]),59))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 77) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]))),"Prelude",":")) [(Nothing,60),(Nothing,61)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),60))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),61))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,62),(Nothing,63)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),62))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 61),63))) [Branch (Pattern ((Nothing,Just (TVar 61),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 62),53))) [Branch (Pattern ((Nothing,Just (TVar 62),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 73) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]))),"Prelude",":")) [(Nothing,64),(Nothing,65)]) (Case  Flex (Var ((Just (TVar 64),65))) [Branch (Pattern ((Nothing,Just (TVar 64),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"FlatCurry","Pattern") []))),"FlatCurry","Pattern")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 65) (FuncType (TVar 66) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 65),39)),Var ((Just (TVar 66),55))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FlatCurryXML","flatx2var")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),21))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),64))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 132]),23))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 132) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 132]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 132]))),"Prelude",":")) [(Nothing,66),(Nothing,67)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),66))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 131]),67))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 131) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 131]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 131]))),"Prelude",":")) [(Nothing,68),(Nothing,69)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),68))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 130]),69))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 130) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 130]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 130]))),"Prelude",":")) [(Nothing,70),(Nothing,71)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),70))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 129]),71))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 129) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 129]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 129]))),"Prelude",":")) [(Nothing,72),(Nothing,73)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),72))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 128]),73))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 128) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 128]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 128]))),"Prelude",":")) [(Nothing,74),(Nothing,75)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),74))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 127]),75))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 127) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 127]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 127]))),"Prelude",":")) [(Nothing,76),(Nothing,77)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),76))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]),77))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 126) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 126]))),"Prelude",":")) [(Nothing,78),(Nothing,79)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),78))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TVar 112),79))) [Branch (Pattern ((Nothing,Just (TVar 112),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 113),20))) [Branch (Pattern ((Nothing,Just (TVar 113),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 123]),21))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 123) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 123]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 123]))),"Prelude",":")) [(Nothing,80),(Nothing,81)]) (Case  Flex (Var ((Just (TVar 115),81))) [Branch (Pattern ((Nothing,Just (TVar 115),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 121]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 121) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 121]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 121]))),"Prelude",":")) [(Nothing,82),(Nothing,83)]) (Case  Flex (Var ((Just (TVar 117),83))) [Branch (Pattern ((Nothing,Just (TVar 117),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Pattern") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","Expr") []) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") []))),"FlatCurry","Branch")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","Literal") []) (TCons (Nothing,Nothing,"FlatCurry","Pattern") [])),"FlatCurry","LPattern")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurryXML","flatx2lit")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),80))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Expr") [])),"FlatCurryXML","flatx2exp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),82))]])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'h')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 226]),23))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 226) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 226]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 226]))),"Prelude",":")) [(Nothing,84),(Nothing,85)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),84))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 225]),85))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 225) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 225]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 225]))),"Prelude",":")) [(Nothing,86),(Nothing,87)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),86))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 224]),87))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 224) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 224]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 224]))),"Prelude",":")) [(Nothing,88),(Nothing,89)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),88))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 223]),89))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 223) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 223]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 223]))),"Prelude",":")) [(Nothing,90),(Nothing,91)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),90))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 222]),91))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 222) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 222]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 222]))),"Prelude",":")) [(Nothing,92),(Nothing,93)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),92))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 221]),93))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 221) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 221]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 221]))),"Prelude",":")) [(Nothing,94),(Nothing,95)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),94))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 220]),95))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 220) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 220]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 220]))),"Prelude",":")) [(Nothing,96),(Nothing,97)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),96))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TVar 147),97))) [Branch (Pattern ((Nothing,Just (TVar 147),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 218]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 218) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 218]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 218]))),"Prelude",":")) [(Nothing,98),(Nothing,99)]) (Case  Flex (Var ((Just (TVar 149),99))) [Branch (Pattern ((Nothing,Just (TVar 149),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","BranchExpr") [])),"Prelude","error")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'H'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'v'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'F'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'C'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'u'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  '!'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurryXML","flatx2lit")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","Literal")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 19) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 18) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 17) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TVar 12),12))) [Branch (Pattern ((Nothing,Just (TVar 12),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 13),3))) [Branch (Pattern ((Nothing,Just (TVar 13),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Intc")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]]])])])])])])])])]),Branch (LPattern (Charc  'f')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 78) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 77) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 77]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),16))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]),18))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 75) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 75]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),19))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 74) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]))),"Prelude",":")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),21))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TVar 30),22))) [Branch (Pattern ((Nothing,Just (TVar 30),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 31),3))) [Branch (Pattern ((Nothing,Just (TVar 31),"Prelude","[]")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"Prelude","error")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'R'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'f'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  's'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'l'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  '!'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])])])])])])])])])])])])]),Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 95) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 95]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  'h')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 94) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 94]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),25))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 93]),26))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 93) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 93]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 93]))),"Prelude",":")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),27))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]),28))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 92) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 92]))),"Prelude",":")) [(Nothing,29),(Nothing,30)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),29))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TVar 87),30))) [Branch (Pattern ((Nothing,Just (TVar 87),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 88),3))) [Branch (Pattern ((Nothing,Just (TVar 88),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (TCons (Nothing,Nothing,"FlatCurry","Literal") [])),"FlatCurry","Charc")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Char") [])),"Prelude","chr")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]]]])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryXML","flatx2texp")) 1 Private (FuncType (TCons ((Nothing,Nothing,"XML","XmlExp")) []) (TCons ((Nothing,Nothing,"FlatCurry","TypeExpr")) [])) (Rule [(Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"XML","XmlExp") [])))),"XML","XElem")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),5))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 81) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 81]))),"Prelude",":")) [(Nothing,7),(Nothing,8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),7))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 19) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 19]))),"Prelude",":")) [(Nothing,9),(Nothing,10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),9))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]),10))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 18) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 18]))),"Prelude",":")) [(Nothing,11),(Nothing,12)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),11))) [Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TVar 13),12))) [Branch (Pattern ((Nothing,Just (TVar 13),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 14),3))) [Branch (Pattern ((Nothing,Just (TVar 14),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurry","TVar")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Read","readNat")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"XML","textOfXml")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]]])])])])])])]),Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 80) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 80]))),"Prelude",":")) [(Nothing,13),(Nothing,14)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),13))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]),14))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 79) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 79]))),"Prelude",":")) [(Nothing,15),(Nothing,16)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),15))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]),16))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 78) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 78]))),"Prelude",":")) [(Nothing,17),(Nothing,18)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),17))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TVar 26),18))) [Branch (Pattern ((Nothing,Just (TVar 26),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 76) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 76]))),"Prelude",":")) [(Nothing,19),(Nothing,20)]) (Case  Flex (Var ((Just (TVar 28),19))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 133) (FuncType (TVar 134) (TVar 28))),"Prelude","(,)")) [(Nothing,21),(Nothing,22)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]),21))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 74) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 74]))),"Prelude",":")) [(Nothing,23),(Nothing,24)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),23))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]),24))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 73) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 73]))),"Prelude",":")) [(Nothing,25),(Nothing,26)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),25))) [Branch (LPattern (Charc  'o')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]),26))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 72) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 72]))),"Prelude",":")) [(Nothing,27),(Nothing,28)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),27))) [Branch (LPattern (Charc  'd')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]),28))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 71) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]))),"Prelude",":")) [(Nothing,29),(Nothing,30)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),29))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]),30))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 70) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]))),"Prelude",":")) [(Nothing,31),(Nothing,32)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),31))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]),32))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 69) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]))),"Prelude",":")) [(Nothing,33),(Nothing,34)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),33))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 41),34))) [Branch (Pattern ((Nothing,Just (TVar 41),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]),20))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 67) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]))),"Prelude",":")) [(Nothing,35),(Nothing,36)]) (Case  Flex (Var ((Just (TVar 43),35))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 149) (FuncType (TVar 150) (TVar 43))),"Prelude","(,)")) [(Nothing,37),(Nothing,38)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]),37))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 65) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]))),"Prelude",":")) [(Nothing,39),(Nothing,40)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),39))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]),40))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 64) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]))),"Prelude",":")) [(Nothing,41),(Nothing,42)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),41))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]),42))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 63) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]))),"Prelude",":")) [(Nothing,43),(Nothing,44)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),43))) [Branch (LPattern (Charc  'm')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]),44))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 62) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 62]))),"Prelude",":")) [(Nothing,45),(Nothing,46)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),45))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 52),46))) [Branch (Pattern ((Nothing,Just (TVar 52),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 53),36))) [Branch (Pattern ((Nothing,Just (TVar 53),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","TCons")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 54) (FuncType (TVar 55) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [Var ((Just (TVar 54),22)),Var ((Just (TVar 55),38))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryXML","flatx2texp")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"XML","XmlExp") []]),4))]])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]),Branch (LPattern (Charc  'f')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 114]),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 114) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 114]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 114]))),"Prelude",":")) [(Nothing,47),(Nothing,48)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),47))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 113]),48))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 113) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 113]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 113]))),"Prelude",":")) [(Nothing,49),(Nothing,50)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),49))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 112]),50))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 112) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 112]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 112]))),"Prelude",":")) [(Nothing,51),(Nothing,52)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),51))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 111]),52))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 111) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 111]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 111]))),"Prelude",":")) [(Nothing,53),(Nothing,54)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),53))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 110]),54))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 110) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 110]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 110]))),"Prelude",":")) [(Nothing,55),(Nothing,56)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),55))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 109]),56))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 109) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 109]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 109]))),"Prelude",":")) [(Nothing,57),(Nothing,58)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),57))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 108]),58))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 108) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 108]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 108]))),"Prelude",":")) [(Nothing,59),(Nothing,60)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),59))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 96),60))) [Branch (Pattern ((Nothing,Just (TVar 96),"Prelude","[]")) []) (Case  Flex (Var ((Just (TVar 97),3))) [Branch (Pattern ((Nothing,Just (TVar 97),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 105]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 105) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 105]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 105]))),"Prelude",":")) [(Nothing,61),(Nothing,62)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 104]),62))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 104) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 104]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 104]))),"Prelude",":")) [(Nothing,63),(Nothing,64)]) (Case  Flex (Var ((Just (TVar 100),64))) [Branch (Pattern ((Nothing,Just (TVar 100),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (FuncType (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") []))),"FlatCurry","FuncType")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryXML","flatx2texp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),61))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"XML","XmlExp") []) (TCons (Nothing,Nothing,"FlatCurry","TypeExpr") [])),"FlatCurryXML","flatx2texp")) [Var ((Just (TCons (Nothing,Nothing,"XML","XmlExp") []),63))]])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"FlatCurry","Visibility") [])),"FlatCurryXML","xvis2vis")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]]) (TCons ((Nothing,Nothing,"FlatCurry","Visibility")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TVar 3) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []],TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2),(Just (TVar 3),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),5)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),4))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]),5))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 71) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 71]))),"Prelude",":")) [(Nothing,6),(Nothing,7)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),6))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]),7))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 70) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 70]))),"Prelude",":")) [(Nothing,8),(Nothing,9)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8))) [Branch (LPattern (Charc  's')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]),9))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 69) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 69]))),"Prelude",":")) [(Nothing,10),(Nothing,11)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),10))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]),11))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 68) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 68]))),"Prelude",":")) [(Nothing,12),(Nothing,13)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),12))) [Branch (LPattern (Charc  'b')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 67) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 67]))),"Prelude",":")) [(Nothing,14),(Nothing,15)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),14))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]),15))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 66) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 66]))),"Prelude",":")) [(Nothing,16),(Nothing,17)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]),17))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 65) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 65]))),"Prelude",":")) [(Nothing,18),(Nothing,19)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),18))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]),19))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 64) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 64]))),"Prelude",":")) [(Nothing,20),(Nothing,21)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),20))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]),21))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 63) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 63]))),"Prelude",":")) [(Nothing,22),(Nothing,23)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),22))) [Branch (LPattern (Charc  'y')) (Case  Flex (Var ((Just (TVar 24),23))) [Branch (Pattern ((Nothing,Just (TVar 24),"Prelude","[]")) []) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 61]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 61) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 61]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 61]))),"Prelude",":")) [(Nothing,24),(Nothing,25)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),24))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 60]),25))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 60) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 60]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 60]))),"Prelude",":")) [(Nothing,26),(Nothing,27)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),26))) [Branch (LPattern (Charc  'u')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 42]),27))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 42) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 42]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 42]))),"Prelude",":")) [(Nothing,28),(Nothing,29)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),28))) [Branch (LPattern (Charc  'b')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]),29))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 41) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 41]))),"Prelude",":")) [(Nothing,30),(Nothing,31)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),30))) [Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]),31))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 40) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 40]))),"Prelude",":")) [(Nothing,32),(Nothing,33)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),32))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 39]),33))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 39) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 39]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 39]))),"Prelude",":")) [(Nothing,34),(Nothing,35)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),34))) [Branch (LPattern (Charc  'c')) (Case  Flex (Var ((Just (TVar 37),35))) [Branch (Pattern ((Nothing,Just (TVar 37),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Public")) [])])])])])])])])])]),Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 59]),27))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 59) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 59]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 59]))),"Prelude",":")) [(Nothing,36),(Nothing,37)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),36))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]),37))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 58) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 58]))),"Prelude",":")) [(Nothing,38),(Nothing,39)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),38))) [Branch (LPattern (Charc  'v')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]),39))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 57) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 57]))),"Prelude",":")) [(Nothing,40),(Nothing,41)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),40))) [Branch (LPattern (Charc  'a')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]),41))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 56) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 56]))),"Prelude",":")) [(Nothing,42),(Nothing,43)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),42))) [Branch (LPattern (Charc  't')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]),43))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 55) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 55]))),"Prelude",":")) [(Nothing,44),(Nothing,45)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),44))) [Branch (LPattern (Charc  'e')) (Case  Flex (Var ((Just (TVar 53),45))) [Branch (Pattern ((Nothing,Just (TVar 53),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Visibility") []),"FlatCurry","Private")) [])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FlatCurry","Fixity") [])),"FlatCurryXML","flatx2Fixity")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []]) (TCons ((Nothing,Nothing,"FlatCurry","Fixity")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Char") []),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),2))) [Branch (LPattern (Charc  'I')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 38]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 38) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 38]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 38]))),"Prelude",":")) [(Nothing,4),(Nothing,5)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),4))) [Branch (LPattern (Charc  'n')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 37]),5))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 37) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 37]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 37]))),"Prelude",":")) [(Nothing,6),(Nothing,7)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),6))) [Branch (LPattern (Charc  'f')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 36]),7))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 36) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 36]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 36]))),"Prelude",":")) [(Nothing,8),(Nothing,9)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),8))) [Branch (LPattern (Charc  'i')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 35]),9))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 35) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 35]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 35]))),"Prelude",":")) [(Nothing,10),(Nothing,11)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),10))) [Branch (LPattern (Charc  'x')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 34]),11))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 34) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 34]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 34]))),"Prelude",":")) [(Nothing,12),(Nothing,13)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),12))) [Branch (LPattern (Charc  'O')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 17) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 17]))),"Prelude",":")) [(Nothing,14),(Nothing,15)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),14))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TVar 15),15))) [Branch (Pattern ((Nothing,Just (TVar 15),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixOp")) [])])])]),Branch (LPattern (Charc  'l')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 25]),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 25) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 25]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 25]))),"Prelude",":")) [(Nothing,16),(Nothing,17)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),16))) [Branch (LPattern (Charc  'O')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 24]),17))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 24) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 24]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 24]))),"Prelude",":")) [(Nothing,18),(Nothing,19)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),18))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TVar 22),19))) [Branch (Pattern ((Nothing,Just (TVar 22),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixlOp")) [])])])])])]),Branch (LPattern (Charc  'r')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 33]),13))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 33) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 33]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 33]))),"Prelude",":")) [(Nothing,20),(Nothing,21)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),20))) [Branch (LPattern (Charc  'O')) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 32]),21))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 32) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 32]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 32]))),"Prelude",":")) [(Nothing,22),(Nothing,23)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Char") []),22))) [Branch (LPattern (Charc  'p')) (Case  Flex (Var ((Just (TVar 30),23))) [Branch (Pattern ((Nothing,Just (TVar 30),"Prelude","[]")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FlatCurry","Fixity") []),"FlatCurry","InfixrOp")) [])])])])])])])])])])])])])])])])])]))] []