{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-} module Curry.DebugModule.XML where import qualified Prelude import qualified Curry.Debugger.DebugMonad as DM import qualified Curry.Debugger.DebugInfo as DI import qualified Curry.Debugger.PartCalls as PC import qualified Data.Generics import qualified Curry.DebugModule.Char import qualified Curry.DebugModule.List import qualified Curry.DebugModule.Prelude import qualified Curry.DebugModule.Read instance DI.GenTerm XmlExp where genTerm (XText x1) = DI.Term "XText" (DI.SrcID "XML" 0) [DI.genTerm x1] genTerm (XElem x1 x2 x3) = DI.Term "XElem" (DI.SrcID "XML" 0) [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3] genTerm x1 = DM.genericTerm (DI.SrcID "XML" 0) x1 instance DI.GenTerm Encoding where genTerm (StandardEnc) = DI.Term "StandardEnc" (DI.SrcID "XML" 0) [] genTerm (Iso88591Enc) = DI.Term "Iso88591Enc" (DI.SrcID "XML" 0) [] genTerm x1 = DM.genericTerm (DI.SrcID "XML" 0) x1 instance DI.GenTerm XmlDocParams where genTerm (Enc x1) = DI.Term "Enc" (DI.SrcID "XML" 0) [DI.genTerm x1] genTerm (DtdUrl x1) = DI.Term "DtdUrl" (DI.SrcID "XML" 0) [DI.genTerm x1] genTerm x1 = DM.genericTerm (DI.SrcID "XML" 0) x1 data XmlExp = XmlExpFail | XmlExpOr DM.OrRef [XmlExp] | XmlExpUnderscore | XText (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) | XElem (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List (Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))) (Curry.DebugModule.Prelude.List XmlExp) deriving (Data.Generics.Typeable, Data.Generics.Data) data Encoding = EncodingFail | EncodingOr DM.OrRef [Encoding] | EncodingUnderscore | StandardEnc | Iso88591Enc deriving (Data.Generics.Typeable, Data.Generics.Data) data XmlDocParams = XmlDocParamsFail | XmlDocParamsOr DM.OrRef [XmlDocParams] | XmlDocParamsUnderscore | Enc Encoding | DtdUrl (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) deriving (Data.Generics.Typeable, Data.Generics.Data) strict_encoding2Attribute :: (DM.DM dm) => Encoding -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) strict_encoding2Attribute x1 = DM.eval (DM.funcDeclHook "encoding2Attribute" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_121" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_121 x2))) term_strict_encoding2Attribute x1 = DI.Term "encoding2Attribute" (DI.SrcID "XML" 0) x1 strict_encoding2EncFunc :: (DM.DM dm) => Encoding -> dm (DM.Func dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)) strict_encoding2EncFunc x1 = DM.eval (DM.funcDeclHook "encoding2EncFunc" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_120" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_120 x2))) term_strict_encoding2EncFunc x1 = DI.Term "encoding2EncFunc" (DI.SrcID "XML" 0) x1 strict_standardEncoding :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) strict_standardEncoding x1 = DM.eval (DM.funcDeclHook "standardEncoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_119" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_119 x2))) term_strict_standardEncoding x1 = DI.Term "standardEncoding" (DI.SrcID "XML" 0) x1 strict_iso88591Encoding :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) strict_iso88591Encoding x1 = DM.eval (DM.funcDeclHook "iso88591Encoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_110" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_110 x2))) term_strict_iso88591Encoding x1 = DI.Term "iso88591Encoding" (DI.SrcID "XML" 0) x1 strict_iso88591list :: (DM.DM dm) => dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Int) strict_iso88591list = DM.eval (DM.funcDeclHook "iso88591list" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (do x110 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x111 <- do x108 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x109 <- do x106 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x107 <- do x104 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x105 <- do x102 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x103 <- do x100 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x101 <- do x98 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x99 <- do x96 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x97 <- do x94 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x95 <- do x92 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x93 <- do x90 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x91 <- do x88 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x89 <- do x86 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x87 <- do x84 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x85 <- do x82 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x83 <- do x80 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x81 <- do x78 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x79 <- do x76 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x77 <- do x74 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x75 <- do x72 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x73 <- do x70 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x71 <- do x68 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x69 <- do x66 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x67 <- do x64 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x65 <- do x62 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x63 <- do x60 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x61 <- do x58 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x59 <- do x56 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x57 <- do x54 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x55 <- do x52 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x53 <- do x50 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x51 <- do x48 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x49 <- do x46 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x47 <- do x44 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x45 <- do x42 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x43 <- do x40 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x41 <- do x38 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x39 <- do x36 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x37 <- do x34 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x35 <- do x32 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x33 <- do x30 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x31 <- do x28 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x29 <- do x26 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x27 <- do x24 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x25 <- do x22 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x23 <- do x20 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x21 <- do x18 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x19 <- do x16 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x17 <- do x14 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x15 <- do x12 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x13 <- do x10 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x11 <- do x8 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x9 <- do x6 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x7 <- do x4 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x5 <- do x2 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x3 <- do x0 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) x1 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x0, DI.genTerm x1])) (Prelude.return (Curry.DebugModule.Prelude.Cons x0 x1)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3])) (Prelude.return (Curry.DebugModule.Prelude.Cons x2 x3)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (Prelude.return (Curry.DebugModule.Prelude.Cons x4 x5)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9])) (Prelude.return (Curry.DebugModule.Prelude.Cons x8 x9)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11])) (Prelude.return (Curry.DebugModule.Prelude.Cons x10 x11)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (Prelude.return (Curry.DebugModule.Prelude.Cons x12 x13)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Prelude.return (Curry.DebugModule.Prelude.Cons x16 x17)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19])) (Prelude.return (Curry.DebugModule.Prelude.Cons x18 x19)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20, DI.genTerm x21])) (Prelude.return (Curry.DebugModule.Prelude.Cons x20 x21)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x22, DI.genTerm x23])) (Prelude.return (Curry.DebugModule.Prelude.Cons x22 x23)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x24, DI.genTerm x25])) (Prelude.return (Curry.DebugModule.Prelude.Cons x24 x25)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x26, DI.genTerm x27])) (Prelude.return (Curry.DebugModule.Prelude.Cons x26 x27)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x28, DI.genTerm x29])) (Prelude.return (Curry.DebugModule.Prelude.Cons x28 x29)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x30, DI.genTerm x31])) (Prelude.return (Curry.DebugModule.Prelude.Cons x30 x31)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x32, DI.genTerm x33])) (Prelude.return (Curry.DebugModule.Prelude.Cons x32 x33)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x34, DI.genTerm x35])) (Prelude.return (Curry.DebugModule.Prelude.Cons x34 x35)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x36, DI.genTerm x37])) (Prelude.return (Curry.DebugModule.Prelude.Cons x36 x37)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x38, DI.genTerm x39])) (Prelude.return (Curry.DebugModule.Prelude.Cons x38 x39)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x40, DI.genTerm x41])) (Prelude.return (Curry.DebugModule.Prelude.Cons x40 x41)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x42, DI.genTerm x43])) (Prelude.return (Curry.DebugModule.Prelude.Cons x42 x43)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x44, DI.genTerm x45])) (Prelude.return (Curry.DebugModule.Prelude.Cons x44 x45)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x46, DI.genTerm x47])) (Prelude.return (Curry.DebugModule.Prelude.Cons x46 x47)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x48, DI.genTerm x49])) (Prelude.return (Curry.DebugModule.Prelude.Cons x48 x49)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x50, DI.genTerm x51])) (Prelude.return (Curry.DebugModule.Prelude.Cons x50 x51)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x52, DI.genTerm x53])) (Prelude.return (Curry.DebugModule.Prelude.Cons x52 x53)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x54, DI.genTerm x55])) (Prelude.return (Curry.DebugModule.Prelude.Cons x54 x55)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x56, DI.genTerm x57])) (Prelude.return (Curry.DebugModule.Prelude.Cons x56 x57)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x58, DI.genTerm x59])) (Prelude.return (Curry.DebugModule.Prelude.Cons x58 x59)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x60, DI.genTerm x61])) (Prelude.return (Curry.DebugModule.Prelude.Cons x60 x61)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x62, DI.genTerm x63])) (Prelude.return (Curry.DebugModule.Prelude.Cons x62 x63)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x64, DI.genTerm x65])) (Prelude.return (Curry.DebugModule.Prelude.Cons x64 x65)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x66, DI.genTerm x67])) (Prelude.return (Curry.DebugModule.Prelude.Cons x66 x67)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x68, DI.genTerm x69])) (Prelude.return (Curry.DebugModule.Prelude.Cons x68 x69)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x70, DI.genTerm x71])) (Prelude.return (Curry.DebugModule.Prelude.Cons x70 x71)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x72, DI.genTerm x73])) (Prelude.return (Curry.DebugModule.Prelude.Cons x72 x73)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x74, DI.genTerm x75])) (Prelude.return (Curry.DebugModule.Prelude.Cons x74 x75)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x76, DI.genTerm x77])) (Prelude.return (Curry.DebugModule.Prelude.Cons x76 x77)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x78, DI.genTerm x79])) (Prelude.return (Curry.DebugModule.Prelude.Cons x78 x79)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x80, DI.genTerm x81])) (Prelude.return (Curry.DebugModule.Prelude.Cons x80 x81)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x82, DI.genTerm x83])) (Prelude.return (Curry.DebugModule.Prelude.Cons x82 x83)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x84, DI.genTerm x85])) (Prelude.return (Curry.DebugModule.Prelude.Cons x84 x85)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x86, DI.genTerm x87])) (Prelude.return (Curry.DebugModule.Prelude.Cons x86 x87)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x88, DI.genTerm x89])) (Prelude.return (Curry.DebugModule.Prelude.Cons x88 x89)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x90, DI.genTerm x91])) (Prelude.return (Curry.DebugModule.Prelude.Cons x90 x91)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x92, DI.genTerm x93])) (Prelude.return (Curry.DebugModule.Prelude.Cons x92 x93)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x94, DI.genTerm x95])) (Prelude.return (Curry.DebugModule.Prelude.Cons x94 x95)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x96, DI.genTerm x97])) (Prelude.return (Curry.DebugModule.Prelude.Cons x96 x97)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x98, DI.genTerm x99])) (Prelude.return (Curry.DebugModule.Prelude.Cons x98 x99)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x100, DI.genTerm x101])) (Prelude.return (Curry.DebugModule.Prelude.Cons x100 x101)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x102, DI.genTerm x103])) (Prelude.return (Curry.DebugModule.Prelude.Cons x102 x103)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x104, DI.genTerm x105])) (Prelude.return (Curry.DebugModule.Prelude.Cons x104 x105)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x106, DI.genTerm x107])) (Prelude.return (Curry.DebugModule.Prelude.Cons x106 x107)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x108, DI.genTerm x109])) (Prelude.return (Curry.DebugModule.Prelude.Cons x108 x109)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x110, DI.genTerm x111])) (Prelude.return (Curry.DebugModule.Prelude.Cons x110 x111)))) strict_lookupEncoding :: (DM.DM dm) => Curry.DebugModule.Prelude.List XmlDocParams -> dm Encoding strict_lookupEncoding x1 = DM.eval (DM.funcDeclHook "lookupEncoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_108" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_108 x2))) term_strict_lookupEncoding x1 = DI.Term "lookupEncoding" (DI.SrcID "XML" 0) x1 strict_lookupDtdUrl :: (DM.DM dm) => Curry.DebugModule.Prelude.List XmlDocParams -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) strict_lookupDtdUrl x1 = DM.eval (DM.funcDeclHook "lookupDtdUrl" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_106" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_106 x2))) term_strict_lookupDtdUrl x1 = DI.Term "lookupDtdUrl" (DI.SrcID "XML" 0) x1 strict_hasDtdUrl :: (DM.DM dm) => Curry.DebugModule.Prelude.List XmlDocParams -> dm Curry.DebugModule.Prelude.Bool strict_hasDtdUrl x1 = DM.eval (DM.funcDeclHook "hasDtdUrl" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_104" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_104 x2))) term_strict_hasDtdUrl x1 = DI.Term "hasDtdUrl" (DI.SrcID "XML" 0) x1 strict_xtxt :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm XmlExp strict_xtxt x1 = DM.eval (DM.funcDeclHook "xtxt" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (Prelude.return (XText x2)))) term_strict_xtxt x1 = DI.Term "xtxt" (DI.SrcID "XML" 0) x1 strict_xml :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> Curry.DebugModule.Prelude.List XmlExp -> dm XmlExp strict_xml x1 x2 = DM.eval (DM.funcDeclHook "xml" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2])) (do x3 <- Prelude.return x1 x4 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) x5 <- Prelude.return x2 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4, DI.genTerm x5])) (Prelude.return (XElem x3 x4 x5)))) term_strict_xml x1 = DI.Term "xml" (DI.SrcID "XML" 0) x1 strict_writeXmlFile :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> XmlExp -> dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit) strict_writeXmlFile x1 x2 = DM.eval (DM.funcDeclHook "writeXmlFile" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2])) (do x6 <- Prelude.return x1 x7 <- do x4 <- do x3 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return StandardEnc) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3])) (Prelude.return (Enc x3)) x5 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (Prelude.return (Curry.DebugModule.Prelude.Cons x4 x5)) x8 <- Prelude.return x2 DM.funcCallHook "writeXmlFileWithParams" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8])) (strict_writeXmlFileWithParams x6 x7 x8))) term_strict_writeXmlFile x1 = DI.Term "writeXmlFile" (DI.SrcID "XML" 0) x1 strict_writeXmlFileWithParams :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> Curry.DebugModule.Prelude.List XmlDocParams -> XmlExp -> dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit) strict_writeXmlFileWithParams x1 x2 x3 = DM.eval (DM.funcDeclHook "writeXmlFileWithParams" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x6 <- Prelude.return x1 x7 <- do x4 <- Prelude.return x2 x5 <- Prelude.return x3 DM.funcCallHook "showXmlDocWithParams" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (strict_showXmlDocWithParams x4 x5) DM.funcCallHook "writeFile" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Curry.DebugModule.Prelude.strict_writeFile x6 x7))) term_strict_writeXmlFileWithParams x1 = DI.Term "writeXmlFileWithParams" (DI.SrcID "XML" 0) x1 strict_showXmlDoc :: (DM.DM dm) => XmlExp -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) strict_showXmlDoc x1 = DM.eval (DM.funcDeclHook "showXmlDoc" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) x3 <- Prelude.return x1 DM.funcCallHook "showXmlDocWithParams" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3])) (strict_showXmlDocWithParams x2 x3))) term_strict_showXmlDoc x1 = DI.Term "showXmlDoc" (DI.SrcID "XML" 0) x1 strict_showXmlDocWithParams :: (DM.DM dm) => Curry.DebugModule.Prelude.List XmlDocParams -> XmlExp -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) strict_showXmlDocWithParams x1 x2 = DM.eval (DM.funcDeclHook "showXmlDocWithParams" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2])) (do x3 <- Prelude.return x1 x4 <- Prelude.return x2 DM.funcCallHook "_case_102" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4])) (strict__case_102 x3 x4))) term_strict_showXmlDocWithParams x1 = DI.Term "showXmlDocWithParams" (DI.SrcID "XML" 0) x1 strict_showXmlExp :: (DM.DM dm) => Curry.DebugModule.Prelude.Int -> DM.Func dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> XmlExp -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) strict_showXmlExp x1 x2 x3 = DM.eval (DM.funcDeclHook "showXmlExp" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x4 <- Prelude.return x1 x5 <- Prelude.return x2 x6 <- Prelude.return x3 DM.funcCallHook "_case_99" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6])) (strict__case_99 x4 x5 x6))) term_strict_showXmlExp x1 = DI.Term "showXmlExp" (DI.SrcID "XML" 0) x1 x'xstrict_showXmlExp46_35selFP335s :: (DM.DM dm) => Curry.DebugModule.Prelude.List XmlExp -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_showXmlExp46_35selFP335s x1 = DM.eval (DM.funcDeclHook "showXmlExp._#selFP3#s" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_96" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_96 x2))) x'xterm_strict_showXmlExp46_35selFP335s x1 = DI.Term "showXmlExp._#selFP3#s" (DI.SrcID "XML" 0) x1 strict_xtab :: (DM.DM dm) => Curry.DebugModule.Prelude.Int -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) strict_xtab x1 = DM.eval (DM.funcDeclHook "xtab" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x3 <- Prelude.return x1 x4 <- do x2 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) DM.funcCallHook "repeat" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (Curry.DebugModule.Prelude.strict_repeat x2) DM.funcCallHook "take" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4])) (Curry.DebugModule.Prelude.strict_take x3 x4))) term_strict_xtab x1 = DI.Term "xtab" (DI.SrcID "XML" 0) x1 strict_showXmlOpenTag :: (DM.DM dm, DI.GenTerm a) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> Curry.DebugModule.Prelude.List (Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) a) -> DM.Func dm a (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) strict_showXmlOpenTag x1 x2 x3 = DM.eval (DM.funcDeclHook "showXmlOpenTag" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x17 <- do x4 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '<')) x5 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (Prelude.return (Curry.DebugModule.Prelude.Cons x4 x5)) x18 <- do x15 <- Prelude.return x1 x16 <- do x14 <- do x12 <- do x10 <- do x8 <- do x6 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x7 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7)) Prelude.return (PC.partCall1 (Curry.DebugModule.Prelude.term_op_PlusPlus [DI.genTerm x8]) (Curry.DebugModule.Prelude.op_PlusPlus x8)) x11 <- do x9 <- Prelude.return x3 Prelude.return (PC.partCall1 (x'xterm_strict_showXmlOpenTag46attr2string46125 [DI.genTerm x9]) (x'xstrict_showXmlOpenTag46attr2string46125 x9)) DM.funcCallHook "." (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11])) (Curry.DebugModule.Prelude.op_Point x10 x11) x13 <- Prelude.return x2 DM.funcCallHook "map" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (Curry.DebugModule.Prelude.strict_map x12 x13) DM.funcCallHook "concat" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14])) (Curry.DebugModule.Prelude.strict_concat x14) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16])) (Curry.DebugModule.Prelude.op_PlusPlus x15 x16) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18])) (Curry.DebugModule.Prelude.op_PlusPlus x17 x18))) term_strict_showXmlOpenTag x1 = DI.Term "showXmlOpenTag" (DI.SrcID "XML" 0) x1 x'xstrict_showXmlOpenTag46attr2string46125 :: (DM.DM dm, DI.GenTerm x130) => DM.Func dm x130 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x130 -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_showXmlOpenTag46attr2string46125 x1 x2 = DM.eval (DM.funcDeclHook "showXmlOpenTag.attr2string.125" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2])) (do x3 <- Prelude.return x1 x4 <- Prelude.return x2 DM.funcCallHook "_case_93" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4])) (strict__case_93 x3 x4))) x'xterm_strict_showXmlOpenTag46attr2string46125 x1 = DI.Term "showXmlOpenTag.attr2string.125" (DI.SrcID "XML" 0) x1 strict_showXmlExps :: (DM.DM dm) => Curry.DebugModule.Prelude.Int -> Curry.DebugModule.Prelude.List XmlExp -> DM.Func dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) strict_showXmlExps x1 x2 x3 = DM.eval (DM.funcDeclHook "showXmlExps" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x7 <- do x6 <- do x4 <- Prelude.return x1 x5 <- Prelude.return x3 Prelude.return (PC.partCall1 (term_strict_showXmlExp [DI.genTerm x4, DI.genTerm x5]) (strict_showXmlExp x4 x5)) DM.funcCallHook "concatMap" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6])) (Curry.DebugModule.Prelude.strict_concatMap x6) x8 <- Prelude.return x2 DM.funcCallHook "apply" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Curry.DebugModule.Prelude.strict_apply x7 x8))) term_strict_showXmlExps x1 = DI.Term "showXmlExps" (DI.SrcID "XML" 0) x1 strict_isXText :: (DM.DM dm) => XmlExp -> dm Curry.DebugModule.Prelude.Bool strict_isXText x1 = DM.eval (DM.funcDeclHook "isXText" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_92" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_92 x2))) term_strict_isXText x1 = DI.Term "isXText" (DI.SrcID "XML" 0) x1 strict_xmlUnquoteSpecials :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) strict_xmlUnquoteSpecials x1 = DM.eval (DM.funcDeclHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_91" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_91 x2))) term_strict_xmlUnquoteSpecials x1 = DI.Term "xmlUnquoteSpecials" (DI.SrcID "XML" 0) x1 x'xstrict_xmlUnquoteSpecials46_35selFP535special :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_xmlUnquoteSpecials46_35selFP535special x1 = DM.eval (DM.funcDeclHook "xmlUnquoteSpecials._#selFP5#special" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_88" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_88 x2))) x'xterm_strict_xmlUnquoteSpecials46_35selFP535special x1 = DI.Term "xmlUnquoteSpecials._#selFP5#special" (DI.SrcID "XML" 0) x1 x'xstrict_xmlUnquoteSpecials46_35selFP635rest :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_xmlUnquoteSpecials46_35selFP635rest x1 = DM.eval (DM.funcDeclHook "xmlUnquoteSpecials._#selFP6#rest" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_87" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_87 x2))) x'xterm_strict_xmlUnquoteSpecials46_35selFP635rest x1 = DI.Term "xmlUnquoteSpecials._#selFP6#rest" (DI.SrcID "XML" 0) x1 strict_xmlUnquoteSpecial :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) strict_xmlUnquoteSpecial x1 x2 = DM.eval (DM.funcDeclHook "xmlUnquoteSpecial" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2])) (do x9 <- Prelude.return x1 x10 <- Prelude.return x2 x11 <- do x7 <- Prelude.return x1 x8 <- do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'l')) x6 <- do x3 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 't')) x4 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4])) (Prelude.return (Curry.DebugModule.Prelude.Cons x3 x4)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Curry.DebugModule.Prelude.op_EqEq x7 x8) DM.funcCallHook "_case_86" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11])) (strict__case_86 x9 x10 x11))) term_strict_xmlUnquoteSpecial x1 = DI.Term "xmlUnquoteSpecial" (DI.SrcID "XML" 0) x1 strict_unquoteUnicode :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) strict_unquoteUnicode x1 = DM.eval (DM.funcDeclHook "unquoteUnicode" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_73" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_73 x2))) term_strict_unquoteUnicode x1 = DI.Term "unquoteUnicode" (DI.SrcID "XML" 0) x1 strict_readXmlFile :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.IO dm XmlExp) strict_readXmlFile x1 = DM.eval (DM.funcDeclHook "readXmlFile" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- do x2 <- Prelude.return x1 DM.funcCallHook "readFile" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (Curry.DebugModule.Prelude.strict_readFile x2) x5 <- do x3 <- Prelude.return x1 Prelude.return (PC.partCall1 (x'xterm_strict_readXmlFile46_35lambda3 [DI.genTerm x3]) (x'xstrict_readXmlFile46_35lambda3 x3)) DM.funcCallHook ">>=" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (Curry.DebugModule.Prelude.op_GtGtEq x4 x5))) term_strict_readXmlFile x1 = DI.Term "readXmlFile" (DI.SrcID "XML" 0) x1 x'xstrict_readXmlFile46_35lambda3 :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.IO dm XmlExp) x'xstrict_readXmlFile46_35lambda3 x1 x2 = DM.eval (DM.funcDeclHook "readXmlFile._#lambda3" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2])) (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x3 <- do x4 <- Prelude.return x2 DM.funcCallHook "parseXmlString" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (strict_parseXmlString x4) DM.eval (do x7 <- Prelude.return x1 x8 <- Prelude.return x3 x9 <- do x5 <- Prelude.return x3 x6 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Curry.DebugModule.Prelude.op_EqEq x5 x6) DM.funcCallHook "_case_68" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9])) (strict__case_68 x7 x8 x9))))) x'xterm_strict_readXmlFile46_35lambda3 x1 = DI.Term "readXmlFile._#lambda3" (DI.SrcID "XML" 0) x1 strict_readUnsafeXmlFile :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.IO dm (Curry.DebugModule.Prelude.Maybe XmlExp)) strict_readUnsafeXmlFile x1 = DM.eval (DM.funcDeclHook "readUnsafeXmlFile" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x8 <- do x5 <- do x2 <- Prelude.return x1 DM.funcCallHook "readXmlFile" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict_readXmlFile x2) x6 <- do x3 <- Prelude.return (PC.partCall1 (Curry.DebugModule.Prelude.term_strict_return []) Curry.DebugModule.Prelude.strict_return) x4 <- Prelude.return (PC.partCall1 (Curry.DebugModule.Prelude.term_Just []) (\ x0 -> Prelude.return (Curry.DebugModule.Prelude.Just x0))) DM.funcCallHook "." (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4])) (Curry.DebugModule.Prelude.op_Point x3 x4) DM.funcCallHook ">>=" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Curry.DebugModule.Prelude.op_GtGtEq x5 x6) x9 <- do x7 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nothing) DM.funcCallHook "return" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7])) (Curry.DebugModule.Prelude.strict_return x7) DM.funcCallHook "catchFail" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9])) (Curry.DebugModule.Prelude.strict_catchFail x8 x9))) term_strict_readUnsafeXmlFile x1 = DI.Term "readUnsafeXmlFile" (DI.SrcID "XML" 0) x1 strict_showXmlFile :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit) strict_showXmlFile x1 = DM.eval (DM.funcDeclHook "showXmlFile" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x5 <- do x2 <- Prelude.return x1 DM.funcCallHook "readXmlFile" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict_readXmlFile x2) x6 <- do x3 <- Prelude.return (PC.partCall1 (Curry.DebugModule.Prelude.term_strict_putStr []) Curry.DebugModule.Prelude.strict_putStr) x4 <- Prelude.return (PC.partCall1 (term_strict_showXmlDoc []) strict_showXmlDoc) DM.funcCallHook "." (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4])) (Curry.DebugModule.Prelude.op_Point x3 x4) DM.funcCallHook ">>=" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Curry.DebugModule.Prelude.op_GtGtEq x5 x6))) term_strict_showXmlFile x1 = DI.Term "showXmlFile" (DI.SrcID "XML" 0) x1 strict_readFileWithXmlDocs :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.IO dm (Curry.DebugModule.Prelude.List XmlExp)) strict_readFileWithXmlDocs x1 = DM.eval (DM.funcDeclHook "readFileWithXmlDocs" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x5 <- do x2 <- Prelude.return x1 DM.funcCallHook "readFile" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (Curry.DebugModule.Prelude.strict_readFile x2) x6 <- do x3 <- Prelude.return (PC.partCall1 (Curry.DebugModule.Prelude.term_strict_return []) Curry.DebugModule.Prelude.strict_return) x4 <- Prelude.return (PC.partCall1 (term_strict_parseXmlString []) strict_parseXmlString) DM.funcCallHook "." (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4])) (Curry.DebugModule.Prelude.op_Point x3 x4) DM.funcCallHook ">>=" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Curry.DebugModule.Prelude.op_GtGtEq x5 x6))) term_strict_readFileWithXmlDocs x1 = DI.Term "readFileWithXmlDocs" (DI.SrcID "XML" 0) x1 strict_parseXmlString :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.List XmlExp) strict_parseXmlString x1 = DM.eval (DM.funcDeclHook "parseXmlString" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x5 <- do x3 <- do x2 <- Prelude.return x1 DM.funcCallHook "scanXmlString" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict_scanXmlString x2) x4 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nothing) DM.funcCallHook "parseXmlTokens" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4])) (strict_parseXmlTokens x3 x4) DM.funcCallHook "fst" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (Curry.DebugModule.Prelude.strict_fst x5))) term_strict_parseXmlString x1 = DI.Term "parseXmlString" (DI.SrcID "XML" 0) x1 strict_parseXmlTokens :: (DM.DM dm) => Curry.DebugModule.Prelude.List XmlExp -> Curry.DebugModule.Prelude.Maybe (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List XmlExp) (Curry.DebugModule.Prelude.List XmlExp)) strict_parseXmlTokens x1 x2 = DM.eval (DM.funcDeclHook "parseXmlTokens" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2])) (do x3 <- Prelude.return x2 x4 <- Prelude.return x1 DM.funcCallHook "_case_66" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4])) (strict__case_66 x3 x4))) term_strict_parseXmlTokens x1 = DI.Term "parseXmlTokens" (DI.SrcID "XML" 0) x1 x'xstrict_parseXmlTokens46_35selFP835xexps :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List XmlExp) (Curry.DebugModule.Prelude.List XmlExp) -> dm (Curry.DebugModule.Prelude.List XmlExp) x'xstrict_parseXmlTokens46_35selFP835xexps x1 = DM.eval (DM.funcDeclHook "parseXmlTokens._#selFP8#xexps" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_58" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_58 x2))) x'xterm_strict_parseXmlTokens46_35selFP835xexps x1 = DI.Term "parseXmlTokens._#selFP8#xexps" (DI.SrcID "XML" 0) x1 x'xstrict_parseXmlTokens46_35selFP935rem_xtokens :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List XmlExp) (Curry.DebugModule.Prelude.List XmlExp) -> dm (Curry.DebugModule.Prelude.List XmlExp) x'xstrict_parseXmlTokens46_35selFP935rem_xtokens x1 = DM.eval (DM.funcDeclHook "parseXmlTokens._#selFP9#rem_xtokens" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_57" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_57 x2))) x'xterm_strict_parseXmlTokens46_35selFP935rem_xtokens x1 = DI.Term "parseXmlTokens._#selFP9#rem_xtokens" (DI.SrcID "XML" 0) x1 x'xstrict_parseXmlTokens46_35selFP1435xexps1 :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List XmlExp) (Curry.DebugModule.Prelude.List XmlExp) -> dm (Curry.DebugModule.Prelude.List XmlExp) x'xstrict_parseXmlTokens46_35selFP1435xexps1 x1 = DM.eval (DM.funcDeclHook "parseXmlTokens._#selFP14#xexps1" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_56" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_56 x2))) x'xterm_strict_parseXmlTokens46_35selFP1435xexps1 x1 = DI.Term "parseXmlTokens._#selFP14#xexps1" (DI.SrcID "XML" 0) x1 x'xstrict_parseXmlTokens46_35selFP1535xtokens1 :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List XmlExp) (Curry.DebugModule.Prelude.List XmlExp) -> dm (Curry.DebugModule.Prelude.List XmlExp) x'xstrict_parseXmlTokens46_35selFP1535xtokens1 x1 = DM.eval (DM.funcDeclHook "parseXmlTokens._#selFP15#xtokens1" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_55" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_55 x2))) x'xterm_strict_parseXmlTokens46_35selFP1535xtokens1 x1 = DI.Term "parseXmlTokens._#selFP15#xtokens1" (DI.SrcID "XML" 0) x1 x'xstrict_parseXmlTokens46_35selFP1235xexps :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List XmlExp) (Curry.DebugModule.Prelude.List XmlExp) -> dm (Curry.DebugModule.Prelude.List XmlExp) x'xstrict_parseXmlTokens46_35selFP1235xexps x1 = DM.eval (DM.funcDeclHook "parseXmlTokens._#selFP12#xexps" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_54" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_54 x2))) x'xterm_strict_parseXmlTokens46_35selFP1235xexps x1 = DI.Term "parseXmlTokens._#selFP12#xexps" (DI.SrcID "XML" 0) x1 x'xstrict_parseXmlTokens46_35selFP1335rem_xtokens :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List XmlExp) (Curry.DebugModule.Prelude.List XmlExp) -> dm (Curry.DebugModule.Prelude.List XmlExp) x'xstrict_parseXmlTokens46_35selFP1335rem_xtokens x1 = DM.eval (DM.funcDeclHook "parseXmlTokens._#selFP13#rem_xtokens" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_53" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_53 x2))) x'xterm_strict_parseXmlTokens46_35selFP1335rem_xtokens x1 = DI.Term "parseXmlTokens._#selFP13#rem_xtokens" (DI.SrcID "XML" 0) x1 x'xstrict_parseXmlTokens46_35selFP1735xexps :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List XmlExp) (Curry.DebugModule.Prelude.List XmlExp) -> dm (Curry.DebugModule.Prelude.List XmlExp) x'xstrict_parseXmlTokens46_35selFP1735xexps x1 = DM.eval (DM.funcDeclHook "parseXmlTokens._#selFP17#xexps" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_52" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_52 x2))) x'xterm_strict_parseXmlTokens46_35selFP1735xexps x1 = DI.Term "parseXmlTokens._#selFP17#xexps" (DI.SrcID "XML" 0) x1 x'xstrict_parseXmlTokens46_35selFP1835rem_xtokens :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List XmlExp) (Curry.DebugModule.Prelude.List XmlExp) -> dm (Curry.DebugModule.Prelude.List XmlExp) x'xstrict_parseXmlTokens46_35selFP1835rem_xtokens x1 = DM.eval (DM.funcDeclHook "parseXmlTokens._#selFP18#rem_xtokens" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_51" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_51 x2))) x'xterm_strict_parseXmlTokens46_35selFP1835rem_xtokens x1 = DI.Term "parseXmlTokens._#selFP18#rem_xtokens" (DI.SrcID "XML" 0) x1 x'xstrict_parseXmlTokens46_35selFP2035xexps :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List XmlExp) (Curry.DebugModule.Prelude.List XmlExp) -> dm (Curry.DebugModule.Prelude.List XmlExp) x'xstrict_parseXmlTokens46_35selFP2035xexps x1 = DM.eval (DM.funcDeclHook "parseXmlTokens._#selFP20#xexps" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_50" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_50 x2))) x'xterm_strict_parseXmlTokens46_35selFP2035xexps x1 = DI.Term "parseXmlTokens._#selFP20#xexps" (DI.SrcID "XML" 0) x1 x'xstrict_parseXmlTokens46_35selFP2135rem_xtokens :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List XmlExp) (Curry.DebugModule.Prelude.List XmlExp) -> dm (Curry.DebugModule.Prelude.List XmlExp) x'xstrict_parseXmlTokens46_35selFP2135rem_xtokens x1 = DM.eval (DM.funcDeclHook "parseXmlTokens._#selFP21#rem_xtokens" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_49" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_49 x2))) x'xterm_strict_parseXmlTokens46_35selFP2135rem_xtokens x1 = DI.Term "parseXmlTokens._#selFP21#rem_xtokens" (DI.SrcID "XML" 0) x1 strict_scanXmlString :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.List XmlExp) strict_scanXmlString x1 = DM.eval (DM.funcDeclHook "scanXmlString" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- do x2 <- DM.funcCallHook "dropBlanks" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) strict_dropBlanks x3 <- Prelude.return x1 DM.funcCallHook "apply" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3])) (Curry.DebugModule.Prelude.strict_apply x2 x3) DM.funcCallHook "scanXmlString.scanXml.191" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (x'xstrict_scanXmlString46scanXml46191 x4))) term_strict_scanXmlString x1 = DI.Term "scanXmlString" (DI.SrcID "XML" 0) x1 x'xstrict_scanXmlString46scanXml46191 :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.List XmlExp) x'xstrict_scanXmlString46scanXml46191 x1 = DM.eval (DM.funcDeclHook "scanXmlString.scanXml.191" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_48" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_48 x2))) x'xterm_strict_scanXmlString46scanXml46191 x1 = DI.Term "scanXmlString.scanXml.191" (DI.SrcID "XML" 0) x1 x'xstrict_scanXmlString46scanXml4619146_35selFP2335initxt :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_scanXmlString46scanXml4619146_35selFP2335initxt x1 = DM.eval (DM.funcDeclHook "scanXmlString.scanXml.191._#selFP23#initxt" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_46" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_46 x2))) x'xterm_strict_scanXmlString46scanXml4619146_35selFP2335initxt x1 = DI.Term "scanXmlString.scanXml.191._#selFP23#initxt" (DI.SrcID "XML" 0) x1 x'xstrict_scanXmlString46scanXml4619146_35selFP2435remtag :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_scanXmlString46scanXml4619146_35selFP2435remtag x1 = DM.eval (DM.funcDeclHook "scanXmlString.scanXml.191._#selFP24#remtag" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_45" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_45 x2))) x'xterm_strict_scanXmlString46scanXml4619146_35selFP2435remtag x1 = DI.Term "scanXmlString.scanXml.191._#selFP24#remtag" (DI.SrcID "XML" 0) x1 strict_scanXmlText :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)) strict_scanXmlText x1 = DM.eval (DM.funcDeclHook "scanXmlText" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_44" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_44 x2))) term_strict_scanXmlText x1 = DI.Term "scanXmlText" (DI.SrcID "XML" 0) x1 x'xstrict_scanXmlText46_35selFP2635txt :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_scanXmlText46_35selFP2635txt x1 = DM.eval (DM.funcDeclHook "scanXmlText._#selFP26#txt" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_39" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_39 x2))) x'xterm_strict_scanXmlText46_35selFP2635txt x1 = DI.Term "scanXmlText._#selFP26#txt" (DI.SrcID "XML" 0) x1 x'xstrict_scanXmlText46_35selFP2735rem :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_scanXmlText46_35selFP2735rem x1 = DM.eval (DM.funcDeclHook "scanXmlText._#selFP27#rem" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_38" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_38 x2))) x'xterm_strict_scanXmlText46_35selFP2735rem x1 = DI.Term "scanXmlText._#selFP27#rem" (DI.SrcID "XML" 0) x1 x'xstrict_scanXmlText46_35selFP2935txt :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_scanXmlText46_35selFP2935txt x1 = DM.eval (DM.funcDeclHook "scanXmlText._#selFP29#txt" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_37" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_37 x2))) x'xterm_strict_scanXmlText46_35selFP2935txt x1 = DI.Term "scanXmlText._#selFP29#txt" (DI.SrcID "XML" 0) x1 x'xstrict_scanXmlText46_35selFP3035rem :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_scanXmlText46_35selFP3035rem x1 = DM.eval (DM.funcDeclHook "scanXmlText._#selFP30#rem" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_36" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_36 x2))) x'xterm_strict_scanXmlText46_35selFP3035rem x1 = DI.Term "scanXmlText._#selFP30#rem" (DI.SrcID "XML" 0) x1 strict_scanXmlElem :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.List XmlExp) strict_scanXmlElem x1 = DM.eval (DM.funcDeclHook "scanXmlElem" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_35" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_35 x2))) term_strict_scanXmlElem x1 = DI.Term "scanXmlElem" (DI.SrcID "XML" 0) x1 strict_scanXmlElemName :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.List XmlExp) strict_scanXmlElemName x1 x2 = DM.eval (DM.funcDeclHook "scanXmlElemName" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2])) (do x3 <- Prelude.return x1 x4 <- Prelude.return x2 DM.funcCallHook "_case_30" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4])) (strict__case_30 x3 x4))) term_strict_scanXmlElemName x1 = DI.Term "scanXmlElemName" (DI.SrcID "XML" 0) x1 x'xstrict_scanXmlElemName46_35selFP3235attrs :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List (Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List (Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))) x'xstrict_scanXmlElemName46_35selFP3235attrs x1 = DM.eval (DM.funcDeclHook "scanXmlElemName._#selFP32#attrs" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_24" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_24 x2))) x'xterm_strict_scanXmlElemName46_35selFP3235attrs x1 = DI.Term "scanXmlElemName._#selFP32#attrs" (DI.SrcID "XML" 0) x1 x'xstrict_scanXmlElemName46_35selFP3335rest :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List (Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_scanXmlElemName46_35selFP3335rest x1 = DM.eval (DM.funcDeclHook "scanXmlElemName._#selFP33#rest" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_23" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_23 x2))) x'xterm_strict_scanXmlElemName46_35selFP3335rest x1 = DI.Term "scanXmlElemName._#selFP33#rest" (DI.SrcID "XML" 0) x1 strict_scanXmlComment :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.List XmlExp) strict_scanXmlComment x1 = DM.eval (DM.funcDeclHook "scanXmlComment" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_22" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_22 x2))) term_strict_scanXmlComment x1 = DI.Term "scanXmlComment" (DI.SrcID "XML" 0) x1 strict_scanXmlCData :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.List XmlExp) strict_scanXmlCData x1 = DM.eval (DM.funcDeclHook "scanXmlCData" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x2 <- do x3 <- Prelude.return x1 DM.funcCallHook "dropCData" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3])) (strict_dropCData x3) DM.eval (do x7 <- Prelude.return x2 x8 <- do x5 <- do x4 <- Prelude.return x2 DM.funcCallHook "head" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (Curry.DebugModule.Prelude.strict_head x4) x6 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '>')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Curry.DebugModule.Prelude.op_EqEq x5 x6) DM.funcCallHook "_case_20" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (strict__case_20 x7 x8))))) term_strict_scanXmlCData x1 = DI.Term "scanXmlCData" (DI.SrcID "XML" 0) x1 strict_dropCData :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) strict_dropCData x1 = DM.eval (DM.funcDeclHook "dropCData" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_19" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_19 x2))) term_strict_dropCData x1 = DI.Term "dropCData" (DI.SrcID "XML" 0) x1 strict_scanXmlProcInstr :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.List XmlExp) strict_scanXmlProcInstr x1 = DM.eval (DM.funcDeclHook "scanXmlProcInstr" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_15" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_15 x2))) term_strict_scanXmlProcInstr x1 = DI.Term "scanXmlProcInstr" (DI.SrcID "XML" 0) x1 strict_parseAttrs :: (DM.DM dm) => Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char -> dm (Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List (Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)) strict_parseAttrs x1 = DM.eval (DM.funcDeclHook "parseAttrs" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_13" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_13 x2))) term_strict_parseAttrs x1 = DI.Term "parseAttrs" (DI.SrcID "XML" 0) x1 x'xstrict_parseAttrs46_35selFP4135name :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_parseAttrs46_35selFP4135name x1 = DM.eval (DM.funcDeclHook "parseAttrs._#selFP41#name" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_10" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_10 x2))) x'xterm_strict_parseAttrs46_35selFP4135name x1 = DI.Term "parseAttrs._#selFP41#name" (DI.SrcID "XML" 0) x1 x'xstrict_parseAttrs46_35selFP4235rest1 :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_parseAttrs46_35selFP4235rest1 x1 = DM.eval (DM.funcDeclHook "parseAttrs._#selFP42#rest1" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_9" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_9 x2))) x'xterm_strict_parseAttrs46_35selFP4235rest1 x1 = DI.Term "parseAttrs._#selFP42#rest1" (DI.SrcID "XML" 0) x1 x'xstrict_parseAttrs46_35selFP3935value :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_parseAttrs46_35selFP3935value x1 = DM.eval (DM.funcDeclHook "parseAttrs._#selFP39#value" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_8" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_8 x2))) x'xterm_strict_parseAttrs46_35selFP3935value x1 = DI.Term "parseAttrs._#selFP39#value" (DI.SrcID "XML" 0) x1 x'xstrict_parseAttrs46_35selFP4035rest2 :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_parseAttrs46_35selFP4035rest2 x1 = DM.eval (DM.funcDeclHook "parseAttrs._#selFP40#rest2" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_7" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_7 x2))) x'xterm_strict_parseAttrs46_35selFP4035rest2 x1 = DI.Term "parseAttrs._#selFP40#rest2" (DI.SrcID "XML" 0) x1 x'xstrict_parseAttrs46_35selFP3735rem_attrs :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List (Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List (Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))) x'xstrict_parseAttrs46_35selFP3735rem_attrs x1 = DM.eval (DM.funcDeclHook "parseAttrs._#selFP37#rem_attrs" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_6" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_6 x2))) x'xterm_strict_parseAttrs46_35selFP3735rem_attrs x1 = DI.Term "parseAttrs._#selFP37#rem_attrs" (DI.SrcID "XML" 0) x1 x'xstrict_parseAttrs46_35selFP3835rem_inp :: (DM.DM dm) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List (Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_parseAttrs46_35selFP3835rem_inp x1 = DM.eval (DM.funcDeclHook "parseAttrs._#selFP38#rem_inp" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_5" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_5 x2))) x'xterm_strict_parseAttrs46_35selFP3835rem_inp x1 = DI.Term "parseAttrs._#selFP38#rem_inp" (DI.SrcID "XML" 0) x1 strict_dropBlanks :: (DM.DM dm) => dm (DM.Func dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)) strict_dropBlanks = DM.eval (DM.funcDeclHook "dropBlanks" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (do x0 <- Prelude.return (PC.partCall1 (Curry.DebugModule.Char.term_strict_isSpace []) Curry.DebugModule.Char.strict_isSpace) Prelude.return (PC.partCall1 (Curry.DebugModule.Prelude.term_strict_dropWhile [DI.genTerm x0]) (Curry.DebugModule.Prelude.strict_dropWhile x0)))) strict_splitAtChar :: (DM.DM dm, DI.GenTerm a) => a -> Curry.DebugModule.Prelude.List a -> dm (Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List a) (Curry.DebugModule.Prelude.List a)) strict_splitAtChar x1 x2 = DM.eval (DM.funcDeclHook "splitAtChar" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2])) (do x3 <- Prelude.return x1 x4 <- Prelude.return x2 DM.funcCallHook "_case_4" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4])) (strict__case_4 x3 x4))) term_strict_splitAtChar x1 = DI.Term "splitAtChar" (DI.SrcID "XML" 0) x1 x'xstrict_splitAtChar46_35selFP4435first :: (DM.DM dm, DI.GenTerm x231) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List x231) (Curry.DebugModule.Prelude.List x231) -> dm (Curry.DebugModule.Prelude.List x231) x'xstrict_splitAtChar46_35selFP4435first x1 = DM.eval (DM.funcDeclHook "splitAtChar._#selFP44#first" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_2" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_2 x2))) x'xterm_strict_splitAtChar46_35selFP4435first x1 = DI.Term "splitAtChar._#selFP44#first" (DI.SrcID "XML" 0) x1 x'xstrict_splitAtChar46_35selFP4535rest :: (DM.DM dm, DI.GenTerm x231) => Curry.DebugModule.Prelude.Tuple2 (Curry.DebugModule.Prelude.List x231) (Curry.DebugModule.Prelude.List x231) -> dm (Curry.DebugModule.Prelude.List x231) x'xstrict_splitAtChar46_35selFP4535rest x1 = DM.eval (DM.funcDeclHook "splitAtChar._#selFP45#rest" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_1" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_1 x2))) x'xterm_strict_splitAtChar46_35selFP4535rest x1 = DI.Term "splitAtChar._#selFP45#rest" (DI.SrcID "XML" 0) x1 strict_textOfXml :: (DM.DM dm) => Curry.DebugModule.Prelude.List XmlExp -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) strict_textOfXml x1 = DM.eval (DM.funcDeclHook "textOfXml" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x12 <- do x10 <- do x2 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x3 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3])) (Prelude.return (Curry.DebugModule.Prelude.Cons x2 x3)) x11 <- do x8 <- do x4 <- Prelude.return (PC.partCall1 (Curry.DebugModule.Prelude.term_strict_not []) Curry.DebugModule.Prelude.strict_not) x5 <- Prelude.return (PC.partCall1 (Curry.DebugModule.Prelude.term_strict_null []) Curry.DebugModule.Prelude.strict_null) DM.funcCallHook "." (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (Curry.DebugModule.Prelude.op_Point x4 x5) x9 <- do x6 <- Prelude.return (PC.partCall1 (x'xterm_strict_textOfXml46textOfXmlItem46255 []) x'xstrict_textOfXml46textOfXmlItem46255) x7 <- Prelude.return x1 DM.funcCallHook "map" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Curry.DebugModule.Prelude.strict_map x6 x7) DM.funcCallHook "filter" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9])) (Curry.DebugModule.Prelude.strict_filter x8 x9) DM.funcCallHook "intersperse" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11])) (Curry.DebugModule.List.strict_intersperse x10 x11) DM.funcCallHook "concat" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12])) (Curry.DebugModule.Prelude.strict_concat x12))) term_strict_textOfXml x1 = DI.Term "textOfXml" (DI.SrcID "XML" 0) x1 x'xstrict_textOfXml46textOfXmlItem46255 :: (DM.DM dm) => XmlExp -> dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char) x'xstrict_textOfXml46textOfXmlItem46255 x1 = DM.eval (DM.funcDeclHook "textOfXml.textOfXmlItem.255" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.funcCallHook "_case_0" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (strict__case_0 x2))) x'xterm_strict_textOfXml46textOfXmlItem46255 x1 = DI.Term "textOfXml.textOfXmlItem.255" (DI.SrcID "XML" 0) x1 strict__case_0 x1 = DM.eval (DM.funcDeclHook "_case_0" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x7 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x7])) (case x7 of XText x2 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x2)) XElem x3 x4 x5 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x5 DM.funcCallHook "textOfXml" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6])) (strict_textOfXml x6))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x7]))) strict__case_0 x7))) term_strict__case_0 x1 = DI.Term "_case_0" (DI.SrcID "XML" 0) x1 strict__case_1 x1 = DM.eval (DM.funcDeclHook "_case_1" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x3)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_1 x4))) term_strict__case_1 x1 = DI.Term "_case_1" (DI.SrcID "XML" 0) x1 strict__case_2 x1 = DM.eval (DM.funcDeclHook "_case_2" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x2)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_2 x4))) term_strict__case_2 x1 = DI.Term "_case_2" (DI.SrcID "XML" 0) x1 strict__case_4 x1 x2 = DM.eval (DM.funcDeclHook "_case_4" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2])) (do x13 <- Prelude.return x2 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x13])) (case x13 of Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x5 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) x6 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x5 x6)))) Curry.DebugModule.Prelude.Cons x3 x4 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x9 <- Prelude.return x1 x10 <- Prelude.return x3 x11 <- Prelude.return x4 x12 <- do x7 <- Prelude.return x3 x8 <- Prelude.return x1 DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Curry.DebugModule.Prelude.op_EqEq x7 x8) DM.funcCallHook "_case_3" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11, DI.genTerm x12])) (strict__case_3 x9 x10 x11 x12))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x13]))) (strict__case_4 x1) x13))) term_strict__case_4 x1 = DI.Term "_case_4" (DI.SrcID "XML" 0) x1 strict__case_3 x1 x3 x4 x8 = DM.eval (DM.funcDeclHook "_case_3" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x8])) (do x19 <- Prelude.return x8 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x19])) (case x19 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x9 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) x10 <- Prelude.return x4 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x9 x10)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x5 <- do x11 <- Prelude.return x1 x12 <- Prelude.return x4 DM.funcCallHook "splitAtChar" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (strict_splitAtChar x11 x12) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x6 <- do x13 <- Prelude.return x5 DM.funcCallHook "splitAtChar._#selFP44#first" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13])) (x'xstrict_splitAtChar46_35selFP4435first x13) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x7 <- do x14 <- Prelude.return x5 DM.funcCallHook "splitAtChar._#selFP45#rest" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14])) (x'xstrict_splitAtChar46_35selFP4535rest x14) DM.eval (do x17 <- do x15 <- Prelude.return x3 x16 <- Prelude.return x6 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16])) (Prelude.return (Curry.DebugModule.Prelude.Cons x15 x16)) x18 <- Prelude.return x7 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x17 x18)))))))))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x19]))) (strict__case_3 x1 x3 x4) x19))) term_strict__case_3 x1 = DI.Term "_case_3" (DI.SrcID "XML" 0) x1 strict__case_5 x1 = DM.eval (DM.funcDeclHook "_case_5" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x3)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_5 x4))) term_strict__case_5 x1 = DI.Term "_case_5" (DI.SrcID "XML" 0) x1 strict__case_6 x1 = DM.eval (DM.funcDeclHook "_case_6" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x2)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_6 x4))) term_strict__case_6 x1 = DI.Term "_case_6" (DI.SrcID "XML" 0) x1 strict__case_7 x1 = DM.eval (DM.funcDeclHook "_case_7" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x3)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_7 x4))) term_strict__case_7 x1 = DI.Term "_case_7" (DI.SrcID "XML" 0) x1 strict__case_8 x1 = DM.eval (DM.funcDeclHook "_case_8" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x2)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_8 x4))) term_strict__case_8 x1 = DI.Term "_case_8" (DI.SrcID "XML" 0) x1 strict__case_9 x1 = DM.eval (DM.funcDeclHook "_case_9" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x3)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_9 x4))) term_strict__case_9 x1 = DI.Term "_case_9" (DI.SrcID "XML" 0) x1 strict__case_10 x1 = DM.eval (DM.funcDeclHook "_case_10" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x2)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_10 x4))) term_strict__case_10 x1 = DI.Term "_case_10" (DI.SrcID "XML" 0) x1 strict__case_13 x1 = DM.eval (DM.funcDeclHook "_case_13" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x10 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x10])) (case x10 of Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x4 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) x5 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x4 x5)))) Curry.DebugModule.Prelude.Cons x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x7 <- Prelude.return x2 x8 <- Prelude.return x3 x9 <- do x6 <- Prelude.return x2 DM.funcCallHook "isAlpha" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6])) (Curry.DebugModule.Char.strict_isAlpha x6) DM.funcCallHook "_case_12" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9])) (strict__case_12 x7 x8 x9))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x10]))) strict__case_13 x10))) term_strict__case_13 x1 = DI.Term "_case_13" (DI.SrcID "XML" 0) x1 strict__case_12 x2 x3 x13 = DM.eval (DM.funcDeclHook "_case_12" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x13])) (do x40 <- Prelude.return x13 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x40])) (case x40 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x4 <- do x16 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '=')) x17 <- do x14 <- Prelude.return x2 x15 <- Prelude.return x3 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15)) DM.funcCallHook "splitAtChar" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (strict_splitAtChar x16 x17) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x5 <- do x18 <- Prelude.return x4 DM.funcCallHook "parseAttrs._#selFP41#name" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18])) (x'xstrict_parseAttrs46_35selFP4135name x18) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x6 <- do x19 <- Prelude.return x4 DM.funcCallHook "parseAttrs._#selFP42#rest1" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x19])) (x'xstrict_parseAttrs46_35selFP4235rest1 x19) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x7 <- do x21 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '"')) x22 <- do x20 <- Prelude.return x6 DM.funcCallHook "tail" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20])) (Curry.DebugModule.Prelude.strict_tail x20) DM.funcCallHook "splitAtChar" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21, DI.genTerm x22])) (strict_splitAtChar x21 x22) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x8 <- do x23 <- Prelude.return x7 DM.funcCallHook "parseAttrs._#selFP39#value" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x23])) (x'xstrict_parseAttrs46_35selFP3935value x23) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x9 <- do x24 <- Prelude.return x7 DM.funcCallHook "parseAttrs._#selFP40#rest2" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x24])) (x'xstrict_parseAttrs46_35selFP4035rest2 x24) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x10 <- do x27 <- do x25 <- DM.funcCallHook "dropBlanks" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) strict_dropBlanks x26 <- Prelude.return x9 DM.funcCallHook "apply" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x25, DI.genTerm x26])) (Curry.DebugModule.Prelude.strict_apply x25 x26) DM.funcCallHook "parseAttrs" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x27])) (strict_parseAttrs x27) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x11 <- do x28 <- Prelude.return x10 DM.funcCallHook "parseAttrs._#selFP37#rem_attrs" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x28])) (x'xstrict_parseAttrs46_35selFP3735rem_attrs x28) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x12 <- do x29 <- Prelude.return x10 DM.funcCallHook "parseAttrs._#selFP38#rem_inp" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x29])) (x'xstrict_parseAttrs46_35selFP3835rem_inp x29) DM.eval (do x35 <- do x33 <- do x31 <- Prelude.return x5 x32 <- do x30 <- Prelude.return x8 DM.funcCallHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x30])) (strict_xmlUnquoteSpecials x30) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x31, DI.genTerm x32])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x31 x32)) x34 <- Prelude.return x11 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x33, DI.genTerm x34])) (Prelude.return (Curry.DebugModule.Prelude.Cons x33 x34)) x36 <- Prelude.return x12 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x35, DI.genTerm x36])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x35 x36)))))))))))))))))))))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x37 <- Prelude.return x2 x38 <- Prelude.return x3 x39 <- DM.funcCallHook "otherwise" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_otherwise DM.funcCallHook "_case_11" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x37, DI.genTerm x38, DI.genTerm x39])) (strict__case_11 x37 x38 x39))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x40]))) (strict__case_12 x2 x3) x40))) term_strict__case_12 x1 = DI.Term "_case_12" (DI.SrcID "XML" 0) x1 strict__case_11 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_11" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x9 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9])) (case x9 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x7 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) x8 <- do x5 <- Prelude.return x2 x6 <- Prelude.return x3 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x7 x8)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.funcCallHook "failed" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_failed)) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9]))) (strict__case_11 x2 x3) x9))) term_strict__case_11 x1 = DI.Term "_case_11" (DI.SrcID "XML" 0) x1 strict__case_15 x1 = DM.eval (DM.funcDeclHook "_case_15" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x14 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x14])) (case x14 of Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil))) Curry.DebugModule.Prelude.Cons x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x11 <- Prelude.return x2 x12 <- Prelude.return x3 x13 <- do x9 <- do x4 <- Prelude.return x2 x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '?')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (Curry.DebugModule.Prelude.op_EqEq x4 x5) x10 <- do x7 <- do x6 <- Prelude.return x3 DM.funcCallHook "head" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6])) (Curry.DebugModule.Prelude.strict_head x6) x8 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '>')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Curry.DebugModule.Prelude.op_EqEq x7 x8) DM.funcCallHook "&&" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Curry.DebugModule.Prelude.op_AndAnd x9 x10) DM.funcCallHook "_case_14" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12, DI.genTerm x13])) (strict__case_14 x11 x12 x13))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x14]))) strict__case_15 x14))) term_strict__case_15 x1 = DI.Term "_case_15" (DI.SrcID "XML" 0) x1 strict__case_14 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_14" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x8 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8])) (case x8 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- do x5 <- Prelude.return x3 DM.funcCallHook "tail" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (Curry.DebugModule.Prelude.strict_tail x5) DM.funcCallHook "scanXmlString" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6])) (strict_scanXmlString x6))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x7 <- Prelude.return x3 DM.funcCallHook "scanXmlProcInstr" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7])) (strict_scanXmlProcInstr x7))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8]))) (strict__case_14 x2 x3) x8))) term_strict__case_14 x1 = DI.Term "_case_14" (DI.SrcID "XML" 0) x1 strict__case_19 x1 = DM.eval (DM.funcDeclHook "_case_19" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x9 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x9])) (case x9 of Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil))) Curry.DebugModule.Prelude.Cons x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x2 x7 <- Prelude.return x3 x8 <- do x4 <- Prelude.return x2 x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '[')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (Curry.DebugModule.Prelude.op_EqEq x4 x5) DM.funcCallHook "_case_18" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8])) (strict__case_18 x6 x7 x8))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x9]))) strict__case_19 x9))) term_strict__case_19 x1 = DI.Term "_case_19" (DI.SrcID "XML" 0) x1 strict__case_18 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_18" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x15 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15])) (case x15 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x9 <- do x7 <- do x5 <- Prelude.return (PC.partCall2 (Curry.DebugModule.Prelude.term_op_SlashEq []) Curry.DebugModule.Prelude.op_SlashEq) x6 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ']')) Prelude.return (PC.partCall1 (Curry.DebugModule.Prelude.term_strict_flip [DI.genTerm x5, DI.genTerm x6]) (Curry.DebugModule.Prelude.strict_flip x5 x6)) x8 <- Prelude.return x3 DM.funcCallHook "dropWhile" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Curry.DebugModule.Prelude.strict_dropWhile x7 x8) DM.funcCallHook "tail" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9])) (Curry.DebugModule.Prelude.strict_tail x9))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x12 <- Prelude.return x2 x13 <- Prelude.return x3 x14 <- do x10 <- Prelude.return x2 x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '>')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11])) (Curry.DebugModule.Prelude.op_EqEq x10 x11) DM.funcCallHook "_case_17" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13, DI.genTerm x14])) (strict__case_17 x12 x13 x14))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15]))) (strict__case_18 x2 x3) x15))) term_strict__case_18 x1 = DI.Term "_case_18" (DI.SrcID "XML" 0) x1 strict__case_17 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_17" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x9 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9])) (case x9 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x5 <- Prelude.return x2 x6 <- Prelude.return x3 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x7 <- Prelude.return x3 x8 <- DM.funcCallHook "otherwise" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_otherwise DM.funcCallHook "_case_16" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (strict__case_16 x7 x8))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9]))) (strict__case_17 x2 x3) x9))) term_strict__case_17 x1 = DI.Term "_case_17" (DI.SrcID "XML" 0) x1 strict__case_16 x3 x4 = DM.eval (DM.funcDeclHook "_case_16" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4])) (do x6 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6])) (case x6 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x5 <- Prelude.return x3 DM.funcCallHook "dropCData" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (strict_dropCData x5))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.funcCallHook "failed" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_failed)) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6]))) (strict__case_16 x3) x6))) term_strict__case_16 x1 = DI.Term "_case_16" (DI.SrcID "XML" 0) x1 strict__case_20 x2 x3 = DM.eval (DM.funcDeclHook "_case_20" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3])) (do x7 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7])) (case x7 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x5 <- do x4 <- Prelude.return x2 DM.funcCallHook "tail" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (Curry.DebugModule.Prelude.strict_tail x4) DM.funcCallHook "scanXmlString" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (strict_scanXmlString x5))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x2 DM.funcCallHook "scanXmlCData" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6])) (strict_scanXmlCData x6))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7]))) (strict__case_20 x2) x7))) term_strict__case_20 x1 = DI.Term "_case_20" (DI.SrcID "XML" 0) x1 strict__case_22 x1 = DM.eval (DM.funcDeclHook "_case_22" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x19 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x19])) (case x19 of Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil))) Curry.DebugModule.Prelude.Cons x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x16 <- Prelude.return x2 x17 <- Prelude.return x3 x18 <- do x14 <- do x4 <- Prelude.return x2 x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '-')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (Curry.DebugModule.Prelude.op_EqEq x4 x5) x15 <- do x12 <- do x6 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O Curry.DebugModule.Prelude.IHi))) x7 <- Prelude.return x3 DM.funcCallHook "take" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Curry.DebugModule.Prelude.strict_take x6 x7) x13 <- do x10 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '-')) x11 <- do x8 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '>')) x9 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9])) (Prelude.return (Curry.DebugModule.Prelude.Cons x8 x9)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11])) (Prelude.return (Curry.DebugModule.Prelude.Cons x10 x11)) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (Curry.DebugModule.Prelude.op_EqEq x12 x13) DM.funcCallHook "&&" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Curry.DebugModule.Prelude.op_AndAnd x14 x15) DM.funcCallHook "_case_21" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17, DI.genTerm x18])) (strict__case_21 x16 x17 x18))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x19]))) strict__case_22 x19))) term_strict__case_22 x1 = DI.Term "_case_22" (DI.SrcID "XML" 0) x1 strict__case_21 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_21" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x9 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9])) (case x9 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x7 <- do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O Curry.DebugModule.Prelude.IHi))) x6 <- Prelude.return x3 DM.funcCallHook "drop" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Curry.DebugModule.Prelude.strict_drop x5 x6) DM.funcCallHook "scanXmlString" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7])) (strict_scanXmlString x7))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x8 <- Prelude.return x3 DM.funcCallHook "scanXmlComment" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8])) (strict_scanXmlComment x8))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9]))) (strict__case_21 x2 x3) x9))) term_strict__case_21 x1 = DI.Term "_case_21" (DI.SrcID "XML" 0) x1 strict__case_23 x1 = DM.eval (DM.funcDeclHook "_case_23" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x3)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_23 x4))) term_strict__case_23 x1 = DI.Term "_case_23" (DI.SrcID "XML" 0) x1 strict__case_24 x1 = DM.eval (DM.funcDeclHook "_case_24" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x2)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_24 x4))) term_strict__case_24 x1 = DI.Term "_case_24" (DI.SrcID "XML" 0) x1 strict__case_30 x1 x2 = DM.eval (DM.funcDeclHook "_case_30" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2])) (do x18 <- Prelude.return x2 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x18])) (case x18 of Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x10 <- do x7 <- do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '<')) x6 <- Prelude.return x1 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) x8 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) x9 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9])) (Prelude.return (XElem x7 x8 x9)) x11 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11])) (Prelude.return (Curry.DebugModule.Prelude.Cons x10 x11)))) Curry.DebugModule.Prelude.Cons x3 x4 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x14 <- Prelude.return x1 x15 <- Prelude.return x3 x16 <- Prelude.return x4 x17 <- do x12 <- Prelude.return x3 x13 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '>')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (Curry.DebugModule.Prelude.op_EqEq x12 x13) DM.funcCallHook "_case_29" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15, DI.genTerm x16, DI.genTerm x17])) (strict__case_29 x14 x15 x16 x17))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x18]))) (strict__case_30 x1) x18))) term_strict__case_30 x1 = DI.Term "_case_30" (DI.SrcID "XML" 0) x1 strict__case_29 x1 x3 x4 x5 = DM.eval (DM.funcDeclHook "_case_29" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5])) (do x19 <- Prelude.return x5 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x19])) (case x19 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x12 <- do x8 <- do x6 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '<')) x7 <- Prelude.return x1 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7)) x9 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) x10 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10])) (Prelude.return (XElem x8 x9 x10)) x13 <- do x11 <- Prelude.return x4 DM.funcCallHook "scanXmlString" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11])) (strict_scanXmlString x11) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (Prelude.return (Curry.DebugModule.Prelude.Cons x12 x13)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x15 <- Prelude.return x1 x16 <- Prelude.return x3 x17 <- Prelude.return x4 x18 <- do x14 <- Prelude.return x3 DM.funcCallHook "isSpace" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14])) (Curry.DebugModule.Char.strict_isSpace x14) DM.funcCallHook "_case_28" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16, DI.genTerm x17, DI.genTerm x18])) (strict__case_28 x15 x16 x17 x18))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x19]))) (strict__case_29 x1 x3 x4) x19))) term_strict__case_29 x1 = DI.Term "_case_29" (DI.SrcID "XML" 0) x1 strict__case_28 x1 x3 x4 x8 = DM.eval (DM.funcDeclHook "_case_28" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x8])) (do x32 <- Prelude.return x8 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x32])) (case x32 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x5 <- do x11 <- do x9 <- DM.funcCallHook "dropBlanks" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) strict_dropBlanks x10 <- Prelude.return x4 DM.funcCallHook "apply" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Curry.DebugModule.Prelude.strict_apply x9 x10) DM.funcCallHook "parseAttrs" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11])) (strict_parseAttrs x11) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x6 <- do x12 <- Prelude.return x5 DM.funcCallHook "scanXmlElemName._#selFP32#attrs" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12])) (x'xstrict_scanXmlElemName46_35selFP3235attrs x12) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x7 <- do x13 <- Prelude.return x5 DM.funcCallHook "scanXmlElemName._#selFP33#rest" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13])) (x'xstrict_scanXmlElemName46_35selFP3335rest x13) DM.eval (do x17 <- Prelude.return x1 x18 <- Prelude.return x6 x19 <- Prelude.return x7 x20 <- do x15 <- do x14 <- Prelude.return x7 DM.funcCallHook "head" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14])) (Curry.DebugModule.Prelude.strict_head x14) x16 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '/')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16])) (Curry.DebugModule.Prelude.op_EqEq x15 x16) DM.funcCallHook "_case_27" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18, DI.genTerm x19, DI.genTerm x20])) (strict__case_27 x17 x18 x19 x20))))))))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x28 <- Prelude.return x1 x29 <- Prelude.return x3 x30 <- Prelude.return x4 x31 <- do x26 <- do x21 <- Prelude.return x3 x22 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '/')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21, DI.genTerm x22])) (Curry.DebugModule.Prelude.op_EqEq x21 x22) x27 <- do x24 <- do x23 <- Prelude.return x4 DM.funcCallHook "head" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x23])) (Curry.DebugModule.Prelude.strict_head x23) x25 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '>')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x24, DI.genTerm x25])) (Curry.DebugModule.Prelude.op_EqEq x24 x25) DM.funcCallHook "&&" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x26, DI.genTerm x27])) (Curry.DebugModule.Prelude.op_AndAnd x26 x27) DM.funcCallHook "_case_26" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x28, DI.genTerm x29, DI.genTerm x30, DI.genTerm x31])) (strict__case_26 x28 x29 x30 x31))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x32]))) (strict__case_28 x1 x3 x4) x32))) term_strict__case_28 x1 = DI.Term "_case_28" (DI.SrcID "XML" 0) x1 strict__case_26 x1 x3 x4 x5 = DM.eval (DM.funcDeclHook "_case_26" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5])) (do x17 <- Prelude.return x5 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17])) (case x17 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x11 <- do x6 <- Prelude.return x1 x7 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) x8 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8])) (Prelude.return (XElem x6 x7 x8)) x12 <- do x10 <- do x9 <- Prelude.return x4 DM.funcCallHook "tail" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9])) (Curry.DebugModule.Prelude.strict_tail x9) DM.funcCallHook "scanXmlString" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10])) (strict_scanXmlString x10) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x13 <- Prelude.return x1 x14 <- Prelude.return x3 x15 <- Prelude.return x4 x16 <- DM.funcCallHook "otherwise" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_otherwise DM.funcCallHook "_case_25" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14, DI.genTerm x15, DI.genTerm x16])) (strict__case_25 x13 x14 x15 x16))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17]))) (strict__case_26 x1 x3 x4) x17))) term_strict__case_26 x1 = DI.Term "_case_26" (DI.SrcID "XML" 0) x1 strict__case_25 x1 x3 x4 x5 = DM.eval (DM.funcDeclHook "_case_25" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5])) (do x12 <- Prelude.return x5 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12])) (case x12 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x10 <- do x8 <- Prelude.return x1 x9 <- do x6 <- Prelude.return x3 x7 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7)) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9])) (Curry.DebugModule.Prelude.op_PlusPlus x8 x9) x11 <- Prelude.return x4 DM.funcCallHook "scanXmlElemName" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11])) (strict_scanXmlElemName x10 x11))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.funcCallHook "failed" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_failed)) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12]))) (strict__case_25 x1 x3 x4) x12))) term_strict__case_25 x1 = DI.Term "_case_25" (DI.SrcID "XML" 0) x1 strict__case_27 x1 x6 x7 x8 = DM.eval (DM.funcDeclHook "_case_27" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x6, DI.genTerm x7, DI.genTerm x8])) (do x26 <- Prelude.return x8 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x26])) (case x26 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x15 <- do x9 <- Prelude.return x1 x10 <- Prelude.return x6 x11 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11])) (Prelude.return (XElem x9 x10 x11)) x16 <- do x14 <- do x12 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O Curry.DebugModule.Prelude.IHi))) x13 <- Prelude.return x7 DM.funcCallHook "drop" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (Curry.DebugModule.Prelude.strict_drop x12 x13) DM.funcCallHook "scanXmlString" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14])) (strict_scanXmlString x14) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16])) (Prelude.return (Curry.DebugModule.Prelude.Cons x15 x16)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x24 <- do x19 <- do x17 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '<')) x18 <- Prelude.return x1 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18])) (Prelude.return (Curry.DebugModule.Prelude.Cons x17 x18)) x20 <- Prelude.return x6 x21 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x19, DI.genTerm x20, DI.genTerm x21])) (Prelude.return (XElem x19 x20 x21)) x25 <- do x23 <- do x22 <- Prelude.return x7 DM.funcCallHook "tail" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x22])) (Curry.DebugModule.Prelude.strict_tail x22) DM.funcCallHook "scanXmlString" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x23])) (strict_scanXmlString x23) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x24, DI.genTerm x25])) (Prelude.return (Curry.DebugModule.Prelude.Cons x24 x25)))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x26]))) (strict__case_27 x1 x6 x7) x26))) term_strict__case_27 x1 = DI.Term "_case_27" (DI.SrcID "XML" 0) x1 strict__case_35 x1 = DM.eval (DM.funcDeclHook "_case_35" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x9 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x9])) (case x9 of Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil))) Curry.DebugModule.Prelude.Cons x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x2 x7 <- Prelude.return x3 x8 <- do x4 <- Prelude.return x2 x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '!')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (Curry.DebugModule.Prelude.op_EqEq x4 x5) DM.funcCallHook "_case_34" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8])) (strict__case_34 x6 x7 x8))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x9]))) strict__case_35 x9))) term_strict__case_35 x1 = DI.Term "_case_35" (DI.SrcID "XML" 0) x1 strict__case_34 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_34" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x20 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20])) (case x20 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x13 <- Prelude.return x3 x14 <- do x11 <- do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O Curry.DebugModule.Prelude.IHi))) x6 <- Prelude.return x3 DM.funcCallHook "take" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Curry.DebugModule.Prelude.strict_take x5 x6) x12 <- do x9 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '-')) x10 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '-')) x8 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Curry.DebugModule.Prelude.op_EqEq x11 x12) DM.funcCallHook "_case_33" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14])) (strict__case_33 x13 x14))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x17 <- Prelude.return x2 x18 <- Prelude.return x3 x19 <- do x15 <- Prelude.return x2 x16 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '?')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16])) (Curry.DebugModule.Prelude.op_EqEq x15 x16) DM.funcCallHook "_case_32" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18, DI.genTerm x19])) (strict__case_32 x17 x18 x19))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20]))) (strict__case_34 x2 x3) x20))) term_strict__case_34 x1 = DI.Term "_case_34" (DI.SrcID "XML" 0) x1 strict__case_32 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_32" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x9 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9])) (case x9 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x5 <- Prelude.return x3 DM.funcCallHook "scanXmlProcInstr" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (strict_scanXmlProcInstr x5))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x2 x7 <- Prelude.return x3 x8 <- DM.funcCallHook "otherwise" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_otherwise DM.funcCallHook "_case_31" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8])) (strict__case_31 x6 x7 x8))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9]))) (strict__case_32 x2 x3) x9))) term_strict__case_32 x1 = DI.Term "_case_32" (DI.SrcID "XML" 0) x1 strict__case_31 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_31" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x9 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9])) (case x9 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x7 <- do x5 <- Prelude.return x2 x6 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) x8 <- Prelude.return x3 DM.funcCallHook "scanXmlElemName" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (strict_scanXmlElemName x7 x8))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.funcCallHook "failed" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_failed)) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9]))) (strict__case_31 x2 x3) x9))) term_strict__case_31 x1 = DI.Term "_case_31" (DI.SrcID "XML" 0) x1 strict__case_33 x3 x4 = DM.eval (DM.funcDeclHook "_case_33" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4])) (do x9 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9])) (case x9 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x7 <- do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O Curry.DebugModule.Prelude.IHi))) x6 <- Prelude.return x3 DM.funcCallHook "drop" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Curry.DebugModule.Prelude.strict_drop x5 x6) DM.funcCallHook "scanXmlComment" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7])) (strict_scanXmlComment x7))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x8 <- Prelude.return x3 DM.funcCallHook "scanXmlCData" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8])) (strict_scanXmlCData x8))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9]))) (strict__case_33 x3) x9))) term_strict__case_33 x1 = DI.Term "_case_33" (DI.SrcID "XML" 0) x1 strict__case_36 x1 = DM.eval (DM.funcDeclHook "_case_36" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x3)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_36 x4))) term_strict__case_36 x1 = DI.Term "_case_36" (DI.SrcID "XML" 0) x1 strict__case_37 x1 = DM.eval (DM.funcDeclHook "_case_37" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x2)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_37 x4))) term_strict__case_37 x1 = DI.Term "_case_37" (DI.SrcID "XML" 0) x1 strict__case_38 x1 = DM.eval (DM.funcDeclHook "_case_38" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x3)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_38 x4))) term_strict__case_38 x1 = DI.Term "_case_38" (DI.SrcID "XML" 0) x1 strict__case_39 x1 = DM.eval (DM.funcDeclHook "_case_39" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x2)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_39 x4))) term_strict__case_39 x1 = DI.Term "_case_39" (DI.SrcID "XML" 0) x1 strict__case_44 x1 = DM.eval (DM.funcDeclHook "_case_44" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x11 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x11])) (case x11 of Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x4 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) x5 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x4 x5)))) Curry.DebugModule.Prelude.Cons x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x8 <- Prelude.return x2 x9 <- Prelude.return x3 x10 <- do x6 <- Prelude.return x2 x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '<')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Curry.DebugModule.Prelude.op_EqEq x6 x7) DM.funcCallHook "_case_43" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10])) (strict__case_43 x8 x9 x10))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x11]))) strict__case_44 x11))) term_strict__case_44 x1 = DI.Term "_case_44" (DI.SrcID "XML" 0) x1 strict__case_43 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_43" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x13 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13])) (case x13 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x7 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) x8 <- do x5 <- Prelude.return x2 x6 <- Prelude.return x3 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x7 x8)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x10 <- Prelude.return x2 x11 <- Prelude.return x3 x12 <- do x9 <- Prelude.return x2 DM.funcCallHook "isSpace" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9])) (Curry.DebugModule.Char.strict_isSpace x9) DM.funcCallHook "_case_42" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11, DI.genTerm x12])) (strict__case_42 x10 x11 x12))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13]))) (strict__case_43 x2 x3) x13))) term_strict__case_43 x1 = DI.Term "_case_43" (DI.SrcID "XML" 0) x1 strict__case_42 x2 x3 x7 = DM.eval (DM.funcDeclHook "_case_42" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x7])) (do x21 <- Prelude.return x7 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21])) (case x21 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x4 <- do x10 <- do x8 <- DM.funcCallHook "dropBlanks" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) strict_dropBlanks x9 <- Prelude.return x3 DM.funcCallHook "apply" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9])) (Curry.DebugModule.Prelude.strict_apply x8 x9) DM.funcCallHook "scanXmlText" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10])) (strict_scanXmlText x10) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x5 <- do x11 <- Prelude.return x4 DM.funcCallHook "scanXmlText._#selFP26#txt" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11])) (x'xstrict_scanXmlText46_35selFP2635txt x11) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x6 <- do x12 <- Prelude.return x4 DM.funcCallHook "scanXmlText._#selFP27#rem" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12])) (x'xstrict_scanXmlText46_35selFP2735rem x12) DM.eval (do x16 <- do x14 <- Prelude.return x5 x15 <- do x13 <- Prelude.return x5 DM.funcCallHook "null" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13])) (Curry.DebugModule.Prelude.strict_null x13) DM.funcCallHook "_case_41" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (strict__case_41 x14 x15) x17 <- Prelude.return x6 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x16 x17)))))))))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x18 <- Prelude.return x2 x19 <- Prelude.return x3 x20 <- DM.funcCallHook "otherwise" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_otherwise DM.funcCallHook "_case_40" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20])) (strict__case_40 x18 x19 x20))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21]))) (strict__case_42 x2 x3) x21))) term_strict__case_42 x1 = DI.Term "_case_42" (DI.SrcID "XML" 0) x1 strict__case_40 x2 x3 x10 = DM.eval (DM.funcDeclHook "_case_40" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x10])) (do x18 <- Prelude.return x10 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18])) (case x18 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x7 <- do x11 <- Prelude.return x3 DM.funcCallHook "scanXmlText" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11])) (strict_scanXmlText x11) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x8 <- do x12 <- Prelude.return x7 DM.funcCallHook "scanXmlText._#selFP29#txt" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12])) (x'xstrict_scanXmlText46_35selFP2935txt x12) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x9 <- do x13 <- Prelude.return x7 DM.funcCallHook "scanXmlText._#selFP30#rem" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13])) (x'xstrict_scanXmlText46_35selFP3035rem x13) DM.eval (do x16 <- do x14 <- Prelude.return x2 x15 <- Prelude.return x8 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15)) x17 <- Prelude.return x9 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x16 x17)))))))))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.funcCallHook "failed" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_failed)) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18]))) (strict__case_40 x2 x3) x18))) term_strict__case_40 x1 = DI.Term "_case_40" (DI.SrcID "XML" 0) x1 strict__case_41 x5 x6 = DM.eval (DM.funcDeclHook "_case_41" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (do x9 <- Prelude.return x6 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9])) (case x9 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x5)) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x8 <- Prelude.return x5 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9]))) (strict__case_41 x5) x9))) term_strict__case_41 x1 = DI.Term "_case_41" (DI.SrcID "XML" 0) x1 strict__case_45 x1 = DM.eval (DM.funcDeclHook "_case_45" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x3)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_45 x4))) term_strict__case_45 x1 = DI.Term "_case_45" (DI.SrcID "XML" 0) x1 strict__case_46 x1 = DM.eval (DM.funcDeclHook "_case_46" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x2)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_46 x4))) term_strict__case_46 x1 = DI.Term "_case_46" (DI.SrcID "XML" 0) x1 strict__case_48 x1 = DM.eval (DM.funcDeclHook "_case_48" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x9 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x9])) (case x9 of Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil))) Curry.DebugModule.Prelude.Cons x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x2 x7 <- Prelude.return x3 x8 <- do x4 <- Prelude.return x2 x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '<')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (Curry.DebugModule.Prelude.op_EqEq x4 x5) DM.funcCallHook "_case_47" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8])) (strict__case_47 x6 x7 x8))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x9]))) strict__case_48 x9))) term_strict__case_48 x1 = DI.Term "_case_48" (DI.SrcID "XML" 0) x1 strict__case_47 x2 x3 x7 = DM.eval (DM.funcDeclHook "_case_47" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x7])) (do x18 <- Prelude.return x7 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18])) (case x18 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x8 <- Prelude.return x3 DM.funcCallHook "scanXmlElem" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8])) (strict_scanXmlElem x8))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x4 <- do x11 <- do x9 <- Prelude.return x2 x10 <- Prelude.return x3 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.funcCallHook "scanXmlText" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11])) (strict_scanXmlText x11) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x5 <- do x12 <- Prelude.return x4 DM.funcCallHook "scanXmlString.scanXml.191._#selFP23#initxt" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12])) (x'xstrict_scanXmlString46scanXml4619146_35selFP2335initxt x12) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x6 <- do x13 <- Prelude.return x4 DM.funcCallHook "scanXmlString.scanXml.191._#selFP24#remtag" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13])) (x'xstrict_scanXmlString46scanXml4619146_35selFP2435remtag x13) DM.eval (do x16 <- do x14 <- Prelude.return x5 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14])) (Prelude.return (XText x14)) x17 <- do x15 <- Prelude.return x6 DM.funcCallHook "scanXmlString.scanXml.191" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15])) (x'xstrict_scanXmlString46scanXml46191 x15) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Prelude.return (Curry.DebugModule.Prelude.Cons x16 x17)))))))))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18]))) (strict__case_47 x2 x3) x18))) term_strict__case_47 x1 = DI.Term "_case_47" (DI.SrcID "XML" 0) x1 strict__case_49 x1 = DM.eval (DM.funcDeclHook "_case_49" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x3)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_49 x4))) term_strict__case_49 x1 = DI.Term "_case_49" (DI.SrcID "XML" 0) x1 strict__case_50 x1 = DM.eval (DM.funcDeclHook "_case_50" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x2)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_50 x4))) term_strict__case_50 x1 = DI.Term "_case_50" (DI.SrcID "XML" 0) x1 strict__case_51 x1 = DM.eval (DM.funcDeclHook "_case_51" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x3)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_51 x4))) term_strict__case_51 x1 = DI.Term "_case_51" (DI.SrcID "XML" 0) x1 strict__case_52 x1 = DM.eval (DM.funcDeclHook "_case_52" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x2)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_52 x4))) term_strict__case_52 x1 = DI.Term "_case_52" (DI.SrcID "XML" 0) x1 strict__case_53 x1 = DM.eval (DM.funcDeclHook "_case_53" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x3)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_53 x4))) term_strict__case_53 x1 = DI.Term "_case_53" (DI.SrcID "XML" 0) x1 strict__case_54 x1 = DM.eval (DM.funcDeclHook "_case_54" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x2)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_54 x4))) term_strict__case_54 x1 = DI.Term "_case_54" (DI.SrcID "XML" 0) x1 strict__case_55 x1 = DM.eval (DM.funcDeclHook "_case_55" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x3)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_55 x4))) term_strict__case_55 x1 = DI.Term "_case_55" (DI.SrcID "XML" 0) x1 strict__case_56 x1 = DM.eval (DM.funcDeclHook "_case_56" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x2)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_56 x4))) term_strict__case_56 x1 = DI.Term "_case_56" (DI.SrcID "XML" 0) x1 strict__case_57 x1 = DM.eval (DM.funcDeclHook "_case_57" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x3)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_57 x4))) term_strict__case_57 x1 = DI.Term "_case_57" (DI.SrcID "XML" 0) x1 strict__case_58 x1 = DM.eval (DM.funcDeclHook "_case_58" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x2)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_58 x4))) term_strict__case_58 x1 = DI.Term "_case_58" (DI.SrcID "XML" 0) x1 strict__case_66 x2 x1 = DM.eval (DM.funcDeclHook "_case_66" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1])) (do x9 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x9])) (case x9 of Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x5 <- Prelude.return x2 DM.funcCallHook "_case_65" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (strict__case_65 x5))) Curry.DebugModule.Prelude.Cons x3 x4 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x2 x7 <- Prelude.return x4 x8 <- Prelude.return x3 DM.funcCallHook "_case_64" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8])) (strict__case_64 x6 x7 x8))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x9]))) (strict__case_66 x2) x9))) term_strict__case_66 x1 = DI.Term "_case_66" (DI.SrcID "XML" 0) x1 strict__case_64 x2 x4 x3 = DM.eval (DM.funcDeclHook "_case_64" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x4, DI.genTerm x3])) (do x27 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x27])) (case x27 of XText x5 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x6 <- do x12 <- Prelude.return x4 x13 <- Prelude.return x2 DM.funcCallHook "parseXmlTokens" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (strict_parseXmlTokens x12 x13) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x7 <- do x14 <- Prelude.return x6 DM.funcCallHook "parseXmlTokens._#selFP8#xexps" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14])) (x'xstrict_parseXmlTokens46_35selFP835xexps x14) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x8 <- do x15 <- Prelude.return x6 DM.funcCallHook "parseXmlTokens._#selFP9#rem_xtokens" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15])) (x'xstrict_parseXmlTokens46_35selFP935rem_xtokens x15) DM.eval (do x20 <- do x18 <- do x17 <- do x16 <- Prelude.return x5 DM.funcCallHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16])) (strict_xmlUnquoteSpecials x16) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17])) (Prelude.return (XText x17)) x19 <- Prelude.return x7 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19])) (Prelude.return (Curry.DebugModule.Prelude.Cons x18 x19)) x21 <- Prelude.return x8 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20, DI.genTerm x21])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x20 x21)))))))))) XElem x9 x10 x11 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x22 <- Prelude.return x2 x23 <- Prelude.return x4 x24 <- Prelude.return x10 x25 <- Prelude.return x11 x26 <- Prelude.return x9 DM.funcCallHook "_case_63" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x22, DI.genTerm x23, DI.genTerm x24, DI.genTerm x25, DI.genTerm x26])) (strict__case_63 x22 x23 x24 x25 x26))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x27]))) (strict__case_64 x2 x4) x27))) term_strict__case_64 x1 = DI.Term "_case_64" (DI.SrcID "XML" 0) x1 strict__case_63 x2 x4 x10 x11 x9 = DM.eval (DM.funcDeclHook "_case_63" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x4, DI.genTerm x10, DI.genTerm x11, DI.genTerm x9])) (do x28 <- Prelude.return x9 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x28])) (case x28 of Curry.DebugModule.Prelude.Cons x12 x13 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x21 <- Prelude.return x2 x22 <- Prelude.return x4 x23 <- Prelude.return x10 x24 <- Prelude.return x11 x25 <- Prelude.return x12 x26 <- Prelude.return x13 x27 <- do x19 <- do x14 <- Prelude.return x12 x15 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '<')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Curry.DebugModule.Prelude.op_EqEq x14 x15) x20 <- do x17 <- do x16 <- Prelude.return x13 DM.funcCallHook "head" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16])) (Curry.DebugModule.Prelude.strict_head x16) x18 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '/')) DM.funcCallHook "/=" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18])) (Curry.DebugModule.Prelude.op_SlashEq x17 x18) DM.funcCallHook "&&" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x19, DI.genTerm x20])) (Curry.DebugModule.Prelude.op_AndAnd x19 x20) DM.funcCallHook "_case_62" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21, DI.genTerm x22, DI.genTerm x23, DI.genTerm x24, DI.genTerm x25, DI.genTerm x26, DI.genTerm x27])) (strict__case_62 x21 x22 x23 x24 x25 x26 x27))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x28]))) (strict__case_63 x2 x4 x10 x11) x28))) term_strict__case_63 x1 = DI.Term "_case_63" (DI.SrcID "XML" 0) x1 strict__case_62 x2 x4 x10 x11 x12 x13 x20 = DM.eval (DM.funcDeclHook "_case_62" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x4, DI.genTerm x10, DI.genTerm x11, DI.genTerm x12, DI.genTerm x13, DI.genTerm x20])) (do x51 <- Prelude.return x20 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x51])) (case x51 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x14 <- do x22 <- Prelude.return x4 x23 <- do x21 <- Prelude.return x13 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21])) (Prelude.return (Curry.DebugModule.Prelude.Just x21)) DM.funcCallHook "parseXmlTokens" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x22, DI.genTerm x23])) (strict_parseXmlTokens x22 x23) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x15 <- do x24 <- Prelude.return x14 DM.funcCallHook "parseXmlTokens._#selFP14#xexps1" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x24])) (x'xstrict_parseXmlTokens46_35selFP1435xexps1 x24) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x16 <- do x25 <- Prelude.return x14 DM.funcCallHook "parseXmlTokens._#selFP15#xtokens1" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x25])) (x'xstrict_parseXmlTokens46_35selFP1535xtokens1 x25) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x17 <- do x26 <- Prelude.return x16 x27 <- Prelude.return x2 DM.funcCallHook "parseXmlTokens" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x26, DI.genTerm x27])) (strict_parseXmlTokens x26 x27) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x18 <- do x28 <- Prelude.return x17 DM.funcCallHook "parseXmlTokens._#selFP12#xexps" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x28])) (x'xstrict_parseXmlTokens46_35selFP1235xexps x28) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x19 <- do x29 <- Prelude.return x17 DM.funcCallHook "parseXmlTokens._#selFP13#rem_xtokens" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x29])) (x'xstrict_parseXmlTokens46_35selFP1335rem_xtokens x29) DM.eval (do x35 <- do x33 <- do x30 <- Prelude.return x13 x31 <- Prelude.return x10 x32 <- Prelude.return x15 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x30, DI.genTerm x31, DI.genTerm x32])) (Prelude.return (XElem x30 x31 x32)) x34 <- Prelude.return x18 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x33, DI.genTerm x34])) (Prelude.return (Curry.DebugModule.Prelude.Cons x33 x34)) x36 <- Prelude.return x19 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x35, DI.genTerm x36])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x35 x36)))))))))))))))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x44 <- Prelude.return x2 x45 <- Prelude.return x4 x46 <- Prelude.return x10 x47 <- Prelude.return x11 x48 <- Prelude.return x12 x49 <- Prelude.return x13 x50 <- do x42 <- do x37 <- Prelude.return x12 x38 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '<')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x37, DI.genTerm x38])) (Curry.DebugModule.Prelude.op_EqEq x37 x38) x43 <- do x40 <- do x39 <- Prelude.return x13 DM.funcCallHook "head" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x39])) (Curry.DebugModule.Prelude.strict_head x39) x41 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '/')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x40, DI.genTerm x41])) (Curry.DebugModule.Prelude.op_EqEq x40 x41) DM.funcCallHook "&&" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x42, DI.genTerm x43])) (Curry.DebugModule.Prelude.op_AndAnd x42 x43) DM.funcCallHook "_case_61" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x44, DI.genTerm x45, DI.genTerm x46, DI.genTerm x47, DI.genTerm x48, DI.genTerm x49, DI.genTerm x50])) (strict__case_61 x44 x45 x46 x47 x48 x49 x50))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x51]))) (strict__case_62 x2 x4 x10 x11 x12 x13) x51))) term_strict__case_62 x1 = DI.Term "_case_62" (DI.SrcID "XML" 0) x1 strict__case_61 x2 x4 x10 x11 x12 x13 x14 = DM.eval (DM.funcDeclHook "_case_61" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x4, DI.genTerm x10, DI.genTerm x11, DI.genTerm x12, DI.genTerm x13, DI.genTerm x14])) (do x34 <- Prelude.return x14 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x34])) (case x34 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x21 <- Prelude.return x2 x22 <- Prelude.return x4 x23 <- Prelude.return x10 x24 <- Prelude.return x11 x25 <- Prelude.return x13 x26 <- do x18 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.False) x19 <- do x16 <- Prelude.return (PC.partCall2 (Curry.DebugModule.Prelude.term_op_EqEq []) Curry.DebugModule.Prelude.op_EqEq) x17 <- do x15 <- Prelude.return x13 DM.funcCallHook "tail" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15])) (Curry.DebugModule.Prelude.strict_tail x15) Prelude.return (PC.partCall1 (Curry.DebugModule.Prelude.term_strict_flip [DI.genTerm x16, DI.genTerm x17]) (Curry.DebugModule.Prelude.strict_flip x16 x17)) x20 <- Prelude.return x2 DM.funcCallHook "maybe" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20])) (Curry.DebugModule.Prelude.strict_maybe x18 x19 x20) DM.funcCallHook "_case_60" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21, DI.genTerm x22, DI.genTerm x23, DI.genTerm x24, DI.genTerm x25, DI.genTerm x26])) (strict__case_60 x21 x22 x23 x24 x25 x26))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x27 <- Prelude.return x2 x28 <- Prelude.return x4 x29 <- Prelude.return x10 x30 <- Prelude.return x11 x31 <- Prelude.return x12 x32 <- Prelude.return x13 x33 <- DM.funcCallHook "otherwise" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_otherwise DM.funcCallHook "_case_59" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x27, DI.genTerm x28, DI.genTerm x29, DI.genTerm x30, DI.genTerm x31, DI.genTerm x32, DI.genTerm x33])) (strict__case_59 x27 x28 x29 x30 x31 x32 x33))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x34]))) (strict__case_61 x2 x4 x10 x11 x12 x13) x34))) term_strict__case_61 x1 = DI.Term "_case_61" (DI.SrcID "XML" 0) x1 strict__case_59 x2 x4 x10 x11 x12 x13 x26 = DM.eval (DM.funcDeclHook "_case_59" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x4, DI.genTerm x10, DI.genTerm x11, DI.genTerm x12, DI.genTerm x13, DI.genTerm x26])) (do x40 <- Prelude.return x26 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x40])) (case x40 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x23 <- do x27 <- Prelude.return x4 x28 <- Prelude.return x2 DM.funcCallHook "parseXmlTokens" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x27, DI.genTerm x28])) (strict_parseXmlTokens x27 x28) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x24 <- do x29 <- Prelude.return x23 DM.funcCallHook "parseXmlTokens._#selFP20#xexps" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x29])) (x'xstrict_parseXmlTokens46_35selFP2035xexps x29) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x25 <- do x30 <- Prelude.return x23 DM.funcCallHook "parseXmlTokens._#selFP21#rem_xtokens" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x30])) (x'xstrict_parseXmlTokens46_35selFP2135rem_xtokens x30) DM.eval (do x38 <- do x36 <- do x33 <- do x31 <- Prelude.return x12 x32 <- Prelude.return x13 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x31, DI.genTerm x32])) (Prelude.return (Curry.DebugModule.Prelude.Cons x31 x32)) x34 <- Prelude.return x10 x35 <- Prelude.return x11 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x33, DI.genTerm x34, DI.genTerm x35])) (Prelude.return (XElem x33 x34 x35)) x37 <- Prelude.return x24 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x36, DI.genTerm x37])) (Prelude.return (Curry.DebugModule.Prelude.Cons x36 x37)) x39 <- Prelude.return x25 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x38, DI.genTerm x39])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x38 x39)))))))))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.funcCallHook "failed" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_failed)) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x40]))) (strict__case_59 x2 x4 x10 x11 x12 x13) x40))) term_strict__case_59 x1 = DI.Term "_case_59" (DI.SrcID "XML" 0) x1 strict__case_60 x2 x4 x10 x11 x13 x23 = DM.eval (DM.funcDeclHook "_case_60" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x4, DI.genTerm x10, DI.genTerm x11, DI.genTerm x13, DI.genTerm x23])) (do x37 <- Prelude.return x23 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x37])) (case x37 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x24 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) x25 <- Prelude.return x4 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x24, DI.genTerm x25])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x24 x25)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x20 <- do x26 <- Prelude.return x4 x27 <- Prelude.return x2 DM.funcCallHook "parseXmlTokens" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x26, DI.genTerm x27])) (strict_parseXmlTokens x26 x27) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x21 <- do x28 <- Prelude.return x20 DM.funcCallHook "parseXmlTokens._#selFP17#xexps" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x28])) (x'xstrict_parseXmlTokens46_35selFP1735xexps x28) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x22 <- do x29 <- Prelude.return x20 DM.funcCallHook "parseXmlTokens._#selFP18#rem_xtokens" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x29])) (x'xstrict_parseXmlTokens46_35selFP1835rem_xtokens x29) DM.eval (do x35 <- do x33 <- do x30 <- Prelude.return x13 x31 <- Prelude.return x10 x32 <- Prelude.return x11 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x30, DI.genTerm x31, DI.genTerm x32])) (Prelude.return (XElem x30 x31 x32)) x34 <- Prelude.return x21 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x33, DI.genTerm x34])) (Prelude.return (Curry.DebugModule.Prelude.Cons x33 x34)) x36 <- Prelude.return x22 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x35, DI.genTerm x36])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x35 x36)))))))))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x37]))) (strict__case_60 x2 x4 x10 x11 x13) x37))) term_strict__case_60 x1 = DI.Term "_case_60" (DI.SrcID "XML" 0) x1 strict__case_65 x2 = DM.eval (DM.funcDeclHook "_case_65" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2])) (do x5 <- Prelude.return x2 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x5])) (case x5 of Curry.DebugModule.Prelude.Nothing -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x3 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) x4 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4])) (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x3 x4)))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x5]))) strict__case_65 x5))) term_strict__case_65 x1 = DI.Term "_case_65" (DI.SrcID "XML" 0) x1 strict__case_68 x1 x3 x4 = DM.eval (DM.funcDeclHook "_case_68" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4])) (do x78 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x78])) (case x78 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x71 <- do x69 <- do x13 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'F')) x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'i')) x12 <- do x9 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'l')) x10 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'e')) x8 <- do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x6 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14])) (Prelude.return (Curry.DebugModule.Prelude.Cons x13 x14)) x70 <- do x67 <- Prelude.return x1 x68 <- do x65 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x66 <- do x63 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'c')) x64 <- do x61 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x62 <- do x59 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'n')) x60 <- do x57 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 't')) x58 <- do x55 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'a')) x56 <- do x53 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'i')) x54 <- do x51 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'n')) x52 <- do x49 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 's')) x50 <- do x47 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x48 <- do x45 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'n')) x46 <- do x43 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x44 <- do x41 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x42 <- do x39 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'X')) x40 <- do x37 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'M')) x38 <- do x35 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'L')) x36 <- do x33 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x34 <- do x31 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'd')) x32 <- do x29 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x30 <- do x27 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'c')) x28 <- do x25 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'u')) x26 <- do x23 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'm')) x24 <- do x21 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'e')) x22 <- do x19 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'n')) x20 <- do x17 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 't')) x18 <- do x15 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '!')) x16 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16])) (Prelude.return (Curry.DebugModule.Prelude.Cons x15 x16)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18])) (Prelude.return (Curry.DebugModule.Prelude.Cons x17 x18)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x19, DI.genTerm x20])) (Prelude.return (Curry.DebugModule.Prelude.Cons x19 x20)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21, DI.genTerm x22])) (Prelude.return (Curry.DebugModule.Prelude.Cons x21 x22)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x23, DI.genTerm x24])) (Prelude.return (Curry.DebugModule.Prelude.Cons x23 x24)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x25, DI.genTerm x26])) (Prelude.return (Curry.DebugModule.Prelude.Cons x25 x26)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x27, DI.genTerm x28])) (Prelude.return (Curry.DebugModule.Prelude.Cons x27 x28)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x29, DI.genTerm x30])) (Prelude.return (Curry.DebugModule.Prelude.Cons x29 x30)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x31, DI.genTerm x32])) (Prelude.return (Curry.DebugModule.Prelude.Cons x31 x32)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x33, DI.genTerm x34])) (Prelude.return (Curry.DebugModule.Prelude.Cons x33 x34)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x35, DI.genTerm x36])) (Prelude.return (Curry.DebugModule.Prelude.Cons x35 x36)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x37, DI.genTerm x38])) (Prelude.return (Curry.DebugModule.Prelude.Cons x37 x38)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x39, DI.genTerm x40])) (Prelude.return (Curry.DebugModule.Prelude.Cons x39 x40)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x41, DI.genTerm x42])) (Prelude.return (Curry.DebugModule.Prelude.Cons x41 x42)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x43, DI.genTerm x44])) (Prelude.return (Curry.DebugModule.Prelude.Cons x43 x44)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x45, DI.genTerm x46])) (Prelude.return (Curry.DebugModule.Prelude.Cons x45 x46)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x47, DI.genTerm x48])) (Prelude.return (Curry.DebugModule.Prelude.Cons x47 x48)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x49, DI.genTerm x50])) (Prelude.return (Curry.DebugModule.Prelude.Cons x49 x50)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x51, DI.genTerm x52])) (Prelude.return (Curry.DebugModule.Prelude.Cons x51 x52)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x53, DI.genTerm x54])) (Prelude.return (Curry.DebugModule.Prelude.Cons x53 x54)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x55, DI.genTerm x56])) (Prelude.return (Curry.DebugModule.Prelude.Cons x55 x56)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x57, DI.genTerm x58])) (Prelude.return (Curry.DebugModule.Prelude.Cons x57 x58)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x59, DI.genTerm x60])) (Prelude.return (Curry.DebugModule.Prelude.Cons x59 x60)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x61, DI.genTerm x62])) (Prelude.return (Curry.DebugModule.Prelude.Cons x61 x62)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x63, DI.genTerm x64])) (Prelude.return (Curry.DebugModule.Prelude.Cons x63 x64)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x65, DI.genTerm x66])) (Prelude.return (Curry.DebugModule.Prelude.Cons x65 x66)) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x67, DI.genTerm x68])) (Curry.DebugModule.Prelude.op_PlusPlus x67 x68) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x69, DI.genTerm x70])) (Curry.DebugModule.Prelude.op_PlusPlus x69 x70) DM.funcCallHook "error" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x71])) (Curry.DebugModule.Prelude.strict_error x71))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x75 <- Prelude.return x1 x76 <- Prelude.return x3 x77 <- do x73 <- do x72 <- Prelude.return x3 DM.funcCallHook "tail" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x72])) (Curry.DebugModule.Prelude.strict_tail x72) x74 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.funcCallHook "/=" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x73, DI.genTerm x74])) (Curry.DebugModule.Prelude.op_SlashEq x73 x74) DM.funcCallHook "_case_67" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x75, DI.genTerm x76, DI.genTerm x77])) (strict__case_67 x75 x76 x77))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x78]))) (strict__case_68 x1 x3) x78))) term_strict__case_68 x1 = DI.Term "_case_68" (DI.SrcID "XML" 0) x1 strict__case_67 x1 x3 x4 = DM.eval (DM.funcDeclHook "_case_67" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4])) (do x96 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x96])) (case x96 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x93 <- do x91 <- do x13 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'F')) x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'i')) x12 <- do x9 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'l')) x10 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'e')) x8 <- do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x6 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14])) (Prelude.return (Curry.DebugModule.Prelude.Cons x13 x14)) x92 <- do x89 <- Prelude.return x1 x90 <- do x87 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x88 <- do x85 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'c')) x86 <- do x83 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x84 <- do x81 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'n')) x82 <- do x79 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 't')) x80 <- do x77 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'a')) x78 <- do x75 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'i')) x76 <- do x73 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'n')) x74 <- do x71 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 's')) x72 <- do x69 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x70 <- do x67 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'm')) x68 <- do x65 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x66 <- do x63 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'r')) x64 <- do x61 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'e')) x62 <- do x59 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x60 <- do x57 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 't')) x58 <- do x55 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'h')) x56 <- do x53 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'a')) x54 <- do x51 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'n')) x52 <- do x49 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x50 <- do x47 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x48 <- do x45 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'n')) x46 <- do x43 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'e')) x44 <- do x41 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x42 <- do x39 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'X')) x40 <- do x37 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'M')) x38 <- do x35 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'L')) x36 <- do x33 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x34 <- do x31 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'd')) x32 <- do x29 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x30 <- do x27 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'c')) x28 <- do x25 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'u')) x26 <- do x23 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'm')) x24 <- do x21 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'e')) x22 <- do x19 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'n')) x20 <- do x17 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 't')) x18 <- do x15 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '!')) x16 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16])) (Prelude.return (Curry.DebugModule.Prelude.Cons x15 x16)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18])) (Prelude.return (Curry.DebugModule.Prelude.Cons x17 x18)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x19, DI.genTerm x20])) (Prelude.return (Curry.DebugModule.Prelude.Cons x19 x20)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21, DI.genTerm x22])) (Prelude.return (Curry.DebugModule.Prelude.Cons x21 x22)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x23, DI.genTerm x24])) (Prelude.return (Curry.DebugModule.Prelude.Cons x23 x24)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x25, DI.genTerm x26])) (Prelude.return (Curry.DebugModule.Prelude.Cons x25 x26)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x27, DI.genTerm x28])) (Prelude.return (Curry.DebugModule.Prelude.Cons x27 x28)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x29, DI.genTerm x30])) (Prelude.return (Curry.DebugModule.Prelude.Cons x29 x30)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x31, DI.genTerm x32])) (Prelude.return (Curry.DebugModule.Prelude.Cons x31 x32)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x33, DI.genTerm x34])) (Prelude.return (Curry.DebugModule.Prelude.Cons x33 x34)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x35, DI.genTerm x36])) (Prelude.return (Curry.DebugModule.Prelude.Cons x35 x36)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x37, DI.genTerm x38])) (Prelude.return (Curry.DebugModule.Prelude.Cons x37 x38)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x39, DI.genTerm x40])) (Prelude.return (Curry.DebugModule.Prelude.Cons x39 x40)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x41, DI.genTerm x42])) (Prelude.return (Curry.DebugModule.Prelude.Cons x41 x42)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x43, DI.genTerm x44])) (Prelude.return (Curry.DebugModule.Prelude.Cons x43 x44)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x45, DI.genTerm x46])) (Prelude.return (Curry.DebugModule.Prelude.Cons x45 x46)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x47, DI.genTerm x48])) (Prelude.return (Curry.DebugModule.Prelude.Cons x47 x48)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x49, DI.genTerm x50])) (Prelude.return (Curry.DebugModule.Prelude.Cons x49 x50)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x51, DI.genTerm x52])) (Prelude.return (Curry.DebugModule.Prelude.Cons x51 x52)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x53, DI.genTerm x54])) (Prelude.return (Curry.DebugModule.Prelude.Cons x53 x54)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x55, DI.genTerm x56])) (Prelude.return (Curry.DebugModule.Prelude.Cons x55 x56)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x57, DI.genTerm x58])) (Prelude.return (Curry.DebugModule.Prelude.Cons x57 x58)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x59, DI.genTerm x60])) (Prelude.return (Curry.DebugModule.Prelude.Cons x59 x60)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x61, DI.genTerm x62])) (Prelude.return (Curry.DebugModule.Prelude.Cons x61 x62)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x63, DI.genTerm x64])) (Prelude.return (Curry.DebugModule.Prelude.Cons x63 x64)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x65, DI.genTerm x66])) (Prelude.return (Curry.DebugModule.Prelude.Cons x65 x66)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x67, DI.genTerm x68])) (Prelude.return (Curry.DebugModule.Prelude.Cons x67 x68)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x69, DI.genTerm x70])) (Prelude.return (Curry.DebugModule.Prelude.Cons x69 x70)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x71, DI.genTerm x72])) (Prelude.return (Curry.DebugModule.Prelude.Cons x71 x72)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x73, DI.genTerm x74])) (Prelude.return (Curry.DebugModule.Prelude.Cons x73 x74)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x75, DI.genTerm x76])) (Prelude.return (Curry.DebugModule.Prelude.Cons x75 x76)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x77, DI.genTerm x78])) (Prelude.return (Curry.DebugModule.Prelude.Cons x77 x78)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x79, DI.genTerm x80])) (Prelude.return (Curry.DebugModule.Prelude.Cons x79 x80)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x81, DI.genTerm x82])) (Prelude.return (Curry.DebugModule.Prelude.Cons x81 x82)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x83, DI.genTerm x84])) (Prelude.return (Curry.DebugModule.Prelude.Cons x83 x84)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x85, DI.genTerm x86])) (Prelude.return (Curry.DebugModule.Prelude.Cons x85 x86)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x87, DI.genTerm x88])) (Prelude.return (Curry.DebugModule.Prelude.Cons x87 x88)) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x89, DI.genTerm x90])) (Curry.DebugModule.Prelude.op_PlusPlus x89 x90) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x91, DI.genTerm x92])) (Curry.DebugModule.Prelude.op_PlusPlus x91 x92) DM.funcCallHook "error" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x93])) (Curry.DebugModule.Prelude.strict_error x93))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x95 <- do x94 <- Prelude.return x3 DM.funcCallHook "head" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x94])) (Curry.DebugModule.Prelude.strict_head x94) DM.funcCallHook "return" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x95])) (Curry.DebugModule.Prelude.strict_return x95))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x96]))) (strict__case_67 x1 x3) x96))) term_strict__case_67 x1 = DI.Term "_case_67" (DI.SrcID "XML" 0) x1 strict__case_73 x1 = DM.eval (DM.funcDeclHook "_case_73" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x9 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x9])) (case x9 of Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil))) Curry.DebugModule.Prelude.Cons x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x2 x7 <- Prelude.return x3 x8 <- do x4 <- Prelude.return x2 x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '#')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (Curry.DebugModule.Prelude.op_EqEq x4 x5) DM.funcCallHook "_case_72" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8])) (strict__case_72 x6 x7 x8))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x9]))) strict__case_73 x9))) term_strict__case_73 x1 = DI.Term "_case_73" (DI.SrcID "XML" 0) x1 strict__case_72 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_72" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x9 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9])) (case x9 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x5 <- Prelude.return x3 DM.funcCallHook "_case_71" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (strict__case_71 x5))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x2 x7 <- Prelude.return x3 x8 <- DM.funcCallHook "otherwise" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_otherwise DM.funcCallHook "_case_69" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8])) (strict__case_69 x6 x7 x8))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9]))) (strict__case_72 x2 x3) x9))) term_strict__case_72 x1 = DI.Term "_case_72" (DI.SrcID "XML" 0) x1 strict__case_69 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_69" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x13 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13])) (case x13 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '&')) x12 <- do x9 <- do x5 <- Prelude.return x2 x6 <- Prelude.return x3 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) x10 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ';')) x8 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Curry.DebugModule.Prelude.op_PlusPlus x9 x10) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.funcCallHook "failed" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_failed)) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13]))) (strict__case_69 x2 x3) x13))) term_strict__case_69 x1 = DI.Term "_case_69" (DI.SrcID "XML" 0) x1 strict__case_71 x3 = DM.eval (DM.funcDeclHook "_case_71" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3])) (do x16 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16])) (case x16 of Curry.DebugModule.Prelude.Cons x4 x5 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x8 <- Prelude.return x3 x9 <- Prelude.return x4 x10 <- Prelude.return x5 x11 <- do x6 <- Prelude.return x4 x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'x')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Curry.DebugModule.Prelude.op_EqEq x6 x7) DM.funcCallHook "_case_70" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10, DI.genTerm x11])) (strict__case_70 x8 x9 x10 x11))) Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x14 <- do x13 <- do x12 <- Prelude.return x3 DM.funcCallHook "readInt" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12])) (Curry.DebugModule.Read.strict_readInt x12) DM.funcCallHook "chr" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13])) (Curry.DebugModule.Prelude.strict_chr x13) x15 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15)))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16]))) strict__case_71 x16))) term_strict__case_71 x1 = DI.Term "_case_71" (DI.SrcID "XML" 0) x1 strict__case_70 x3 x4 x5 x6 = DM.eval (DM.funcDeclHook "_case_70" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4, DI.genTerm x5, DI.genTerm x6])) (do x15 <- Prelude.return x6 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15])) (case x15 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x9 <- do x8 <- do x7 <- Prelude.return x5 DM.funcCallHook "readHex" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7])) (Curry.DebugModule.Read.strict_readHex x7) DM.funcCallHook "chr" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8])) (Curry.DebugModule.Prelude.strict_chr x8) x10 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x13 <- do x12 <- do x11 <- Prelude.return x3 DM.funcCallHook "readInt" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11])) (Curry.DebugModule.Read.strict_readInt x11) DM.funcCallHook "chr" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12])) (Curry.DebugModule.Prelude.strict_chr x12) x14 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14])) (Prelude.return (Curry.DebugModule.Prelude.Cons x13 x14)))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15]))) (strict__case_70 x3 x4 x5) x15))) term_strict__case_70 x1 = DI.Term "_case_70" (DI.SrcID "XML" 0) x1 strict__case_86 x1 x2 x3 = DM.eval (DM.funcDeclHook "_case_86" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x16 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16])) (case x16 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '<')) x6 <- do x4 <- Prelude.return x2 DM.funcCallHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (strict_xmlUnquoteSpecials x4) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x13 <- Prelude.return x1 x14 <- Prelude.return x2 x15 <- do x11 <- Prelude.return x1 x12 <- do x9 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'g')) x10 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 't')) x8 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Curry.DebugModule.Prelude.op_EqEq x11 x12) DM.funcCallHook "_case_85" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14, DI.genTerm x15])) (strict__case_85 x13 x14 x15))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16]))) (strict__case_86 x1 x2) x16))) term_strict__case_86 x1 = DI.Term "_case_86" (DI.SrcID "XML" 0) x1 strict__case_85 x1 x2 x3 = DM.eval (DM.funcDeclHook "_case_85" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x18 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18])) (case x18 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '>')) x6 <- do x4 <- Prelude.return x2 DM.funcCallHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (strict_xmlUnquoteSpecials x4) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x15 <- Prelude.return x1 x16 <- Prelude.return x2 x17 <- do x13 <- Prelude.return x1 x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'a')) x12 <- do x9 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'm')) x10 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'p')) x8 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14])) (Curry.DebugModule.Prelude.op_EqEq x13 x14) DM.funcCallHook "_case_84" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16, DI.genTerm x17])) (strict__case_84 x15 x16 x17))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18]))) (strict__case_85 x1 x2) x18))) term_strict__case_85 x1 = DI.Term "_case_85" (DI.SrcID "XML" 0) x1 strict__case_84 x1 x2 x3 = DM.eval (DM.funcDeclHook "_case_84" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x20 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20])) (case x20 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '&')) x6 <- do x4 <- Prelude.return x2 DM.funcCallHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (strict_xmlUnquoteSpecials x4) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x17 <- Prelude.return x1 x18 <- Prelude.return x2 x19 <- do x15 <- Prelude.return x1 x16 <- do x13 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'q')) x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'u')) x12 <- do x9 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x10 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 't')) x8 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14])) (Prelude.return (Curry.DebugModule.Prelude.Cons x13 x14)) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16])) (Curry.DebugModule.Prelude.op_EqEq x15 x16) DM.funcCallHook "_case_83" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18, DI.genTerm x19])) (strict__case_83 x17 x18 x19))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20]))) (strict__case_84 x1 x2) x20))) term_strict__case_84 x1 = DI.Term "_case_84" (DI.SrcID "XML" 0) x1 strict__case_83 x1 x2 x3 = DM.eval (DM.funcDeclHook "_case_83" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x20 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20])) (case x20 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '"')) x6 <- do x4 <- Prelude.return x2 DM.funcCallHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (strict_xmlUnquoteSpecials x4) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x17 <- Prelude.return x1 x18 <- Prelude.return x2 x19 <- do x15 <- Prelude.return x1 x16 <- do x13 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'a')) x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'p')) x12 <- do x9 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x10 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 's')) x8 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14])) (Prelude.return (Curry.DebugModule.Prelude.Cons x13 x14)) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16])) (Curry.DebugModule.Prelude.op_EqEq x15 x16) DM.funcCallHook "_case_82" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18, DI.genTerm x19])) (strict__case_82 x17 x18 x19))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20]))) (strict__case_83 x1 x2) x20))) term_strict__case_83 x1 = DI.Term "_case_83" (DI.SrcID "XML" 0) x1 strict__case_82 x1 x2 x3 = DM.eval (DM.funcDeclHook "_case_82" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x20 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20])) (case x20 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '\'')) x6 <- do x4 <- Prelude.return x2 DM.funcCallHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (strict_xmlUnquoteSpecials x4) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x17 <- Prelude.return x1 x18 <- Prelude.return x2 x19 <- do x15 <- Prelude.return x1 x16 <- do x13 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'a')) x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'u')) x12 <- do x9 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'm')) x10 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'l')) x8 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14])) (Prelude.return (Curry.DebugModule.Prelude.Cons x13 x14)) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16])) (Curry.DebugModule.Prelude.op_EqEq x15 x16) DM.funcCallHook "_case_81" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18, DI.genTerm x19])) (strict__case_81 x17 x18 x19))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20]))) (strict__case_82 x1 x2) x20))) term_strict__case_82 x1 = DI.Term "_case_82" (DI.SrcID "XML" 0) x1 strict__case_81 x1 x2 x3 = DM.eval (DM.funcDeclHook "_case_81" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x21 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21])) (case x21 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- do x4 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) DM.funcCallHook "chr" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (Curry.DebugModule.Prelude.strict_chr x4) x7 <- do x5 <- Prelude.return x2 DM.funcCallHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (strict_xmlUnquoteSpecials x5) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x18 <- Prelude.return x1 x19 <- Prelude.return x2 x20 <- do x16 <- Prelude.return x1 x17 <- do x14 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x15 <- do x12 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'u')) x13 <- do x10 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'm')) x11 <- do x8 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'l')) x9 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9])) (Prelude.return (Curry.DebugModule.Prelude.Cons x8 x9)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11])) (Prelude.return (Curry.DebugModule.Prelude.Cons x10 x11)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (Prelude.return (Curry.DebugModule.Prelude.Cons x12 x13)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15)) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Curry.DebugModule.Prelude.op_EqEq x16 x17) DM.funcCallHook "_case_80" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20])) (strict__case_80 x18 x19 x20))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21]))) (strict__case_81 x1 x2) x21))) term_strict__case_81 x1 = DI.Term "_case_81" (DI.SrcID "XML" 0) x1 strict__case_80 x1 x2 x3 = DM.eval (DM.funcDeclHook "_case_80" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x21 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21])) (case x21 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- do x4 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) DM.funcCallHook "chr" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (Curry.DebugModule.Prelude.strict_chr x4) x7 <- do x5 <- Prelude.return x2 DM.funcCallHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (strict_xmlUnquoteSpecials x5) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x18 <- Prelude.return x1 x19 <- Prelude.return x2 x20 <- do x16 <- Prelude.return x1 x17 <- do x14 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'u')) x15 <- do x12 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'u')) x13 <- do x10 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'm')) x11 <- do x8 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'l')) x9 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9])) (Prelude.return (Curry.DebugModule.Prelude.Cons x8 x9)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11])) (Prelude.return (Curry.DebugModule.Prelude.Cons x10 x11)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (Prelude.return (Curry.DebugModule.Prelude.Cons x12 x13)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15)) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Curry.DebugModule.Prelude.op_EqEq x16 x17) DM.funcCallHook "_case_79" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20])) (strict__case_79 x18 x19 x20))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21]))) (strict__case_80 x1 x2) x21))) term_strict__case_80 x1 = DI.Term "_case_80" (DI.SrcID "XML" 0) x1 strict__case_79 x1 x2 x3 = DM.eval (DM.funcDeclHook "_case_79" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x21 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21])) (case x21 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- do x4 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) DM.funcCallHook "chr" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (Curry.DebugModule.Prelude.strict_chr x4) x7 <- do x5 <- Prelude.return x2 DM.funcCallHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (strict_xmlUnquoteSpecials x5) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x18 <- Prelude.return x1 x19 <- Prelude.return x2 x20 <- do x16 <- Prelude.return x1 x17 <- do x14 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'A')) x15 <- do x12 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'u')) x13 <- do x10 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'm')) x11 <- do x8 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'l')) x9 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9])) (Prelude.return (Curry.DebugModule.Prelude.Cons x8 x9)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11])) (Prelude.return (Curry.DebugModule.Prelude.Cons x10 x11)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (Prelude.return (Curry.DebugModule.Prelude.Cons x12 x13)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15)) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Curry.DebugModule.Prelude.op_EqEq x16 x17) DM.funcCallHook "_case_78" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20])) (strict__case_78 x18 x19 x20))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21]))) (strict__case_79 x1 x2) x21))) term_strict__case_79 x1 = DI.Term "_case_79" (DI.SrcID "XML" 0) x1 strict__case_78 x1 x2 x3 = DM.eval (DM.funcDeclHook "_case_78" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x21 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21])) (case x21 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- do x4 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) DM.funcCallHook "chr" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (Curry.DebugModule.Prelude.strict_chr x4) x7 <- do x5 <- Prelude.return x2 DM.funcCallHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (strict_xmlUnquoteSpecials x5) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x18 <- Prelude.return x1 x19 <- Prelude.return x2 x20 <- do x16 <- Prelude.return x1 x17 <- do x14 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'O')) x15 <- do x12 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'u')) x13 <- do x10 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'm')) x11 <- do x8 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'l')) x9 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9])) (Prelude.return (Curry.DebugModule.Prelude.Cons x8 x9)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11])) (Prelude.return (Curry.DebugModule.Prelude.Cons x10 x11)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (Prelude.return (Curry.DebugModule.Prelude.Cons x12 x13)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15)) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Curry.DebugModule.Prelude.op_EqEq x16 x17) DM.funcCallHook "_case_77" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20])) (strict__case_77 x18 x19 x20))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21]))) (strict__case_78 x1 x2) x21))) term_strict__case_78 x1 = DI.Term "_case_78" (DI.SrcID "XML" 0) x1 strict__case_77 x1 x2 x3 = DM.eval (DM.funcDeclHook "_case_77" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x21 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21])) (case x21 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- do x4 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) DM.funcCallHook "chr" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (Curry.DebugModule.Prelude.strict_chr x4) x7 <- do x5 <- Prelude.return x2 DM.funcCallHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (strict_xmlUnquoteSpecials x5) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x18 <- Prelude.return x1 x19 <- Prelude.return x2 x20 <- do x16 <- Prelude.return x1 x17 <- do x14 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'U')) x15 <- do x12 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'u')) x13 <- do x10 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'm')) x11 <- do x8 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'l')) x9 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9])) (Prelude.return (Curry.DebugModule.Prelude.Cons x8 x9)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11])) (Prelude.return (Curry.DebugModule.Prelude.Cons x10 x11)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (Prelude.return (Curry.DebugModule.Prelude.Cons x12 x13)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15)) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Curry.DebugModule.Prelude.op_EqEq x16 x17) DM.funcCallHook "_case_76" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20])) (strict__case_76 x18 x19 x20))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21]))) (strict__case_77 x1 x2) x21))) term_strict__case_77 x1 = DI.Term "_case_77" (DI.SrcID "XML" 0) x1 strict__case_76 x1 x2 x3 = DM.eval (DM.funcDeclHook "_case_76" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x23 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x23])) (case x23 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- do x4 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) DM.funcCallHook "chr" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (Curry.DebugModule.Prelude.strict_chr x4) x7 <- do x5 <- Prelude.return x2 DM.funcCallHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (strict_xmlUnquoteSpecials x5) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x20 <- Prelude.return x1 x21 <- Prelude.return x2 x22 <- do x18 <- Prelude.return x1 x19 <- do x16 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 's')) x17 <- do x14 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'z')) x15 <- do x12 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'l')) x13 <- do x10 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'i')) x11 <- do x8 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'g')) x9 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9])) (Prelude.return (Curry.DebugModule.Prelude.Cons x8 x9)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11])) (Prelude.return (Curry.DebugModule.Prelude.Cons x10 x11)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (Prelude.return (Curry.DebugModule.Prelude.Cons x12 x13)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Prelude.return (Curry.DebugModule.Prelude.Cons x16 x17)) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19])) (Curry.DebugModule.Prelude.op_EqEq x18 x19) DM.funcCallHook "_case_75" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20, DI.genTerm x21, DI.genTerm x22])) (strict__case_75 x20 x21 x22))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x23]))) (strict__case_76 x1 x2) x23))) term_strict__case_76 x1 = DI.Term "_case_76" (DI.SrcID "XML" 0) x1 strict__case_75 x1 x2 x3 = DM.eval (DM.funcDeclHook "_case_75" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x11 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11])) (case x11 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- do x4 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))))) DM.funcCallHook "chr" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (Curry.DebugModule.Prelude.strict_chr x4) x7 <- do x5 <- Prelude.return x2 DM.funcCallHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (strict_xmlUnquoteSpecials x5) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x8 <- Prelude.return x1 x9 <- Prelude.return x2 x10 <- DM.funcCallHook "otherwise" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_otherwise DM.funcCallHook "_case_74" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10])) (strict__case_74 x8 x9 x10))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11]))) (strict__case_75 x1 x2) x11))) term_strict__case_75 x1 = DI.Term "_case_75" (DI.SrcID "XML" 0) x1 strict__case_74 x1 x2 x3 = DM.eval (DM.funcDeclHook "_case_74" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x8 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8])) (case x8 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- do x4 <- Prelude.return x1 DM.funcCallHook "unquoteUnicode" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (strict_unquoteUnicode x4) x7 <- do x5 <- Prelude.return x2 DM.funcCallHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (strict_xmlUnquoteSpecials x5) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Curry.DebugModule.Prelude.op_PlusPlus x6 x7))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.funcCallHook "failed" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_failed)) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8]))) (strict__case_74 x1 x2) x8))) term_strict__case_74 x1 = DI.Term "_case_74" (DI.SrcID "XML" 0) x1 strict__case_87 x1 = DM.eval (DM.funcDeclHook "_case_87" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x3)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_87 x4))) term_strict__case_87 x1 = DI.Term "_case_87" (DI.SrcID "XML" 0) x1 strict__case_88 x1 = DM.eval (DM.funcDeclHook "_case_88" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x4 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4])) (case x4 of Curry.DebugModule.Prelude.Tuple2 x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x2)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x4]))) strict__case_88 x4))) term_strict__case_88 x1 = DI.Term "_case_88" (DI.SrcID "XML" 0) x1 strict__case_91 x1 = DM.eval (DM.funcDeclHook "_case_91" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x9 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x9])) (case x9 of Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil))) Curry.DebugModule.Prelude.Cons x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x2 x7 <- Prelude.return x3 x8 <- do x4 <- Prelude.return x2 x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '&')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (Curry.DebugModule.Prelude.op_EqEq x4 x5) DM.funcCallHook "_case_90" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8])) (strict__case_90 x6 x7 x8))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x9]))) strict__case_91 x9))) term_strict__case_91 x1 = DI.Term "_case_91" (DI.SrcID "XML" 0) x1 strict__case_90 x2 x3 x7 = DM.eval (DM.funcDeclHook "_case_90" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x7])) (do x17 <- Prelude.return x7 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17])) (case x17 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x4 <- do x8 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ';')) x9 <- Prelude.return x3 DM.funcCallHook "splitAtChar" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9])) (strict_splitAtChar x8 x9) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x5 <- do x10 <- Prelude.return x4 DM.funcCallHook "xmlUnquoteSpecials._#selFP5#special" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10])) (x'xstrict_xmlUnquoteSpecials46_35selFP535special x10) DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x6 <- do x11 <- Prelude.return x4 DM.funcCallHook "xmlUnquoteSpecials._#selFP6#rest" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11])) (x'xstrict_xmlUnquoteSpecials46_35selFP635rest x11) DM.eval (do x12 <- Prelude.return x5 x13 <- Prelude.return x6 DM.funcCallHook "xmlUnquoteSpecial" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (strict_xmlUnquoteSpecial x12 x13))))))))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x14 <- Prelude.return x2 x15 <- Prelude.return x3 x16 <- DM.funcCallHook "otherwise" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_otherwise DM.funcCallHook "_case_89" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15, DI.genTerm x16])) (strict__case_89 x14 x15 x16))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17]))) (strict__case_90 x2 x3) x17))) term_strict__case_90 x1 = DI.Term "_case_90" (DI.SrcID "XML" 0) x1 strict__case_89 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_89" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x8 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8])) (case x8 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x2 x7 <- do x5 <- Prelude.return x3 DM.funcCallHook "xmlUnquoteSpecials" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (strict_xmlUnquoteSpecials x5) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.funcCallHook "failed" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_failed)) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8]))) (strict__case_89 x2 x3) x8))) term_strict__case_89 x1 = DI.Term "_case_89" (DI.SrcID "XML" 0) x1 strict__case_92 x1 = DM.eval (DM.funcDeclHook "_case_92" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x6 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x6])) (case x6 of XText x2 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.True))) XElem x3 x4 x5 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.False))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x6]))) strict__case_92 x6))) term_strict__case_92 x1 = DI.Term "_case_92" (DI.SrcID "XML" 0) x1 strict__case_93 x1 x2 = DM.eval (DM.funcDeclHook "_case_93" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2])) (do x19 <- Prelude.return x2 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x19])) (case x19 of Curry.DebugModule.Prelude.Tuple2 x3 x4 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x17 <- Prelude.return x3 x18 <- do x15 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '=')) x8 <- do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '"')) x6 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) x16 <- do x13 <- do x9 <- Prelude.return x1 x10 <- Prelude.return x4 DM.funcCallHook "apply" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Curry.DebugModule.Prelude.strict_apply x9 x10) x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '"')) x12 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14])) (Curry.DebugModule.Prelude.op_PlusPlus x13 x14) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16])) (Curry.DebugModule.Prelude.op_PlusPlus x15 x16) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18])) (Curry.DebugModule.Prelude.op_PlusPlus x17 x18))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x19]))) (strict__case_93 x1) x19))) term_strict__case_93 x1 = DI.Term "_case_93" (DI.SrcID "XML" 0) x1 strict__case_96 x1 = DM.eval (DM.funcDeclHook "_case_96" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x6 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x6])) (case x6 of Curry.DebugModule.Prelude.Cons x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x4 <- Prelude.return x3 x5 <- Prelude.return x2 DM.funcCallHook "_case_95" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (strict__case_95 x4 x5))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x6]))) strict__case_96 x6))) term_strict__case_96 x1 = DI.Term "_case_96" (DI.SrcID "XML" 0) x1 strict__case_95 x3 x2 = DM.eval (DM.funcDeclHook "_case_95" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2])) (do x7 <- Prelude.return x2 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x7])) (case x7 of XText x4 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x5 <- Prelude.return x4 x6 <- Prelude.return x3 DM.funcCallHook "_case_94" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (strict__case_94 x5 x6))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x7]))) (strict__case_95 x3) x7))) term_strict__case_95 x1 = DI.Term "_case_95" (DI.SrcID "XML" 0) x1 strict__case_94 x4 x3 = DM.eval (DM.funcDeclHook "_case_94" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x3])) (do x5 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x5])) (case x5 of Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x4)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x5]))) (strict__case_94 x4) x5))) term_strict__case_94 x1 = DI.Term "_case_94" (DI.SrcID "XML" 0) x1 strict__case_99 x1 x2 x3 = DM.eval (DM.funcDeclHook "_case_99" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3])) (do x32 <- Prelude.return x3 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x32])) (case x32 of XText x4 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x15 <- do x8 <- Prelude.return x1 DM.funcCallHook "xtab" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8])) (strict_xtab x8) x16 <- do x13 <- do x9 <- Prelude.return x2 x10 <- Prelude.return x4 DM.funcCallHook "apply" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Curry.DebugModule.Prelude.strict_apply x9 x10) x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '\n')) x12 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14])) (Curry.DebugModule.Prelude.op_PlusPlus x13 x14) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16])) (Curry.DebugModule.Prelude.op_PlusPlus x15 x16))) XElem x5 x6 x7 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x30 <- do x17 <- Prelude.return x1 DM.funcCallHook "xtab" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17])) (strict_xtab x17) x31 <- do x28 <- do x18 <- Prelude.return x5 x19 <- Prelude.return x6 x20 <- Prelude.return x2 DM.funcCallHook "showXmlOpenTag" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20])) (strict_showXmlOpenTag x18 x19 x20) x29 <- do x23 <- Prelude.return x1 x24 <- Prelude.return x2 x25 <- Prelude.return x5 x26 <- Prelude.return x7 x27 <- do x21 <- Prelude.return x7 x22 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21, DI.genTerm x22])) (Curry.DebugModule.Prelude.op_EqEq x21 x22) DM.funcCallHook "_case_98" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x23, DI.genTerm x24, DI.genTerm x25, DI.genTerm x26, DI.genTerm x27])) (strict__case_98 x23 x24 x25 x26 x27) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x28, DI.genTerm x29])) (Curry.DebugModule.Prelude.op_PlusPlus x28 x29) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x30, DI.genTerm x31])) (Curry.DebugModule.Prelude.op_PlusPlus x30 x31))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x32]))) (strict__case_99 x1 x2) x32))) term_strict__case_99 x1 = DI.Term "_case_99" (DI.SrcID "XML" 0) x1 strict__case_98 x1 x2 x5 x7 x8 = DM.eval (DM.funcDeclHook "_case_98" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x5, DI.genTerm x7, DI.genTerm x8])) (do x29 <- Prelude.return x8 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x29])) (case x29 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x15 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x16 <- do x13 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '/')) x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '>')) x12 <- do x9 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '\n')) x10 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14])) (Prelude.return (Curry.DebugModule.Prelude.Cons x13 x14)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16])) (Prelude.return (Curry.DebugModule.Prelude.Cons x15 x16)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x24 <- Prelude.return x1 x25 <- Prelude.return x2 x26 <- Prelude.return x5 x27 <- Prelude.return x7 x28 <- do x22 <- do x18 <- do x17 <- Prelude.return x7 DM.funcCallHook "length" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17])) (Curry.DebugModule.Prelude.strict_length x17) x19 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos Curry.DebugModule.Prelude.IHi)) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19])) (Curry.DebugModule.Prelude.op_EqEq x18 x19) x23 <- do x21 <- do x20 <- Prelude.return x7 DM.funcCallHook "head" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20])) (Curry.DebugModule.Prelude.strict_head x20) DM.funcCallHook "isXText" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21])) (strict_isXText x21) DM.funcCallHook "&&" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x22, DI.genTerm x23])) (Curry.DebugModule.Prelude.op_AndAnd x22 x23) DM.funcCallHook "_case_97" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x24, DI.genTerm x25, DI.genTerm x26, DI.genTerm x27, DI.genTerm x28])) (strict__case_97 x24 x25 x26 x27 x28))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x29]))) (strict__case_98 x1 x2 x5 x7) x29))) term_strict__case_98 x1 = DI.Term "_case_98" (DI.SrcID "XML" 0) x1 strict__case_97 x1 x2 x5 x7 x10 = DM.eval (DM.funcDeclHook "_case_97" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x5, DI.genTerm x7, DI.genTerm x10])) (do x60 <- Prelude.return x10 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x60])) (case x60 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x8 <- Prelude.return x7 DM.eval (DM.letHook (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] [])) (do x9 <- do x11 <- Prelude.return x8 DM.funcCallHook "showXmlExp._#selFP3#s" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11])) (x'xstrict_showXmlExp46_35selFP335s x11) DM.eval (do x30 <- do x12 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '>')) x13 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (Prelude.return (Curry.DebugModule.Prelude.Cons x12 x13)) x31 <- do x28 <- do x14 <- Prelude.return x2 x15 <- Prelude.return x9 DM.funcCallHook "apply" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Curry.DebugModule.Prelude.strict_apply x14 x15) x29 <- do x26 <- do x18 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '<')) x19 <- do x16 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '/')) x17 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Prelude.return (Curry.DebugModule.Prelude.Cons x16 x17)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19])) (Prelude.return (Curry.DebugModule.Prelude.Cons x18 x19)) x27 <- do x24 <- Prelude.return x5 x25 <- do x22 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '>')) x23 <- do x20 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '\n')) x21 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20, DI.genTerm x21])) (Prelude.return (Curry.DebugModule.Prelude.Cons x20 x21)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x22, DI.genTerm x23])) (Prelude.return (Curry.DebugModule.Prelude.Cons x22 x23)) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x24, DI.genTerm x25])) (Curry.DebugModule.Prelude.op_PlusPlus x24 x25) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x26, DI.genTerm x27])) (Curry.DebugModule.Prelude.op_PlusPlus x26 x27) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x28, DI.genTerm x29])) (Curry.DebugModule.Prelude.op_PlusPlus x28 x29) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x30, DI.genTerm x31])) (Curry.DebugModule.Prelude.op_PlusPlus x30 x31))))))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x58 <- do x34 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '>')) x35 <- do x32 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '\n')) x33 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x32, DI.genTerm x33])) (Prelude.return (Curry.DebugModule.Prelude.Cons x32 x33)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x34, DI.genTerm x35])) (Prelude.return (Curry.DebugModule.Prelude.Cons x34 x35)) x59 <- do x56 <- do x38 <- do x36 <- Prelude.return x1 x37 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O Curry.DebugModule.Prelude.IHi))) DM.funcCallHook "+" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x36, DI.genTerm x37])) (Curry.DebugModule.Prelude.op_Plus x36 x37) x39 <- Prelude.return x7 x40 <- Prelude.return x2 DM.funcCallHook "showXmlExps" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x38, DI.genTerm x39, DI.genTerm x40])) (strict_showXmlExps x38 x39 x40) x57 <- do x54 <- do x41 <- Prelude.return x1 DM.funcCallHook "xtab" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x41])) (strict_xtab x41) x55 <- do x52 <- do x44 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '<')) x45 <- do x42 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '/')) x43 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x42, DI.genTerm x43])) (Prelude.return (Curry.DebugModule.Prelude.Cons x42 x43)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x44, DI.genTerm x45])) (Prelude.return (Curry.DebugModule.Prelude.Cons x44 x45)) x53 <- do x50 <- Prelude.return x5 x51 <- do x48 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '>')) x49 <- do x46 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '\n')) x47 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x46, DI.genTerm x47])) (Prelude.return (Curry.DebugModule.Prelude.Cons x46 x47)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x48, DI.genTerm x49])) (Prelude.return (Curry.DebugModule.Prelude.Cons x48 x49)) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x50, DI.genTerm x51])) (Curry.DebugModule.Prelude.op_PlusPlus x50 x51) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x52, DI.genTerm x53])) (Curry.DebugModule.Prelude.op_PlusPlus x52 x53) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x54, DI.genTerm x55])) (Curry.DebugModule.Prelude.op_PlusPlus x54 x55) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x56, DI.genTerm x57])) (Curry.DebugModule.Prelude.op_PlusPlus x56 x57) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x58, DI.genTerm x59])) (Curry.DebugModule.Prelude.op_PlusPlus x58 x59))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x60]))) (strict__case_97 x1 x2 x5 x7) x60))) term_strict__case_97 x1 = DI.Term "_case_97" (DI.SrcID "XML" 0) x1 strict__case_102 x1 x2 = DM.eval (DM.funcDeclHook "_case_102" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2])) (do x109 <- Prelude.return x2 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x109])) (case x109 of XElem x3 x4 x5 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x107 <- do x44 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '<')) x45 <- do x42 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '?')) x43 <- do x40 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'x')) x41 <- do x38 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'm')) x39 <- do x36 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'l')) x37 <- do x34 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x35 <- do x32 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'v')) x33 <- do x30 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'e')) x31 <- do x28 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'r')) x29 <- do x26 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 's')) x27 <- do x24 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'i')) x25 <- do x22 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x23 <- do x20 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'n')) x21 <- do x18 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '=')) x19 <- do x16 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '"')) x17 <- do x14 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '1')) x15 <- do x12 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '.')) x13 <- do x10 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '0')) x11 <- do x8 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '"')) x9 <- do x6 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x7 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9])) (Prelude.return (Curry.DebugModule.Prelude.Cons x8 x9)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11])) (Prelude.return (Curry.DebugModule.Prelude.Cons x10 x11)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (Prelude.return (Curry.DebugModule.Prelude.Cons x12 x13)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Prelude.return (Curry.DebugModule.Prelude.Cons x16 x17)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19])) (Prelude.return (Curry.DebugModule.Prelude.Cons x18 x19)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20, DI.genTerm x21])) (Prelude.return (Curry.DebugModule.Prelude.Cons x20 x21)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x22, DI.genTerm x23])) (Prelude.return (Curry.DebugModule.Prelude.Cons x22 x23)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x24, DI.genTerm x25])) (Prelude.return (Curry.DebugModule.Prelude.Cons x24 x25)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x26, DI.genTerm x27])) (Prelude.return (Curry.DebugModule.Prelude.Cons x26 x27)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x28, DI.genTerm x29])) (Prelude.return (Curry.DebugModule.Prelude.Cons x28 x29)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x30, DI.genTerm x31])) (Prelude.return (Curry.DebugModule.Prelude.Cons x30 x31)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x32, DI.genTerm x33])) (Prelude.return (Curry.DebugModule.Prelude.Cons x32 x33)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x34, DI.genTerm x35])) (Prelude.return (Curry.DebugModule.Prelude.Cons x34 x35)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x36, DI.genTerm x37])) (Prelude.return (Curry.DebugModule.Prelude.Cons x36 x37)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x38, DI.genTerm x39])) (Prelude.return (Curry.DebugModule.Prelude.Cons x38 x39)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x40, DI.genTerm x41])) (Prelude.return (Curry.DebugModule.Prelude.Cons x40 x41)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x42, DI.genTerm x43])) (Prelude.return (Curry.DebugModule.Prelude.Cons x42 x43)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x44, DI.genTerm x45])) (Prelude.return (Curry.DebugModule.Prelude.Cons x44 x45)) x108 <- do x105 <- do x47 <- do x46 <- Prelude.return x1 DM.funcCallHook "lookupEncoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x46])) (strict_lookupEncoding x46) DM.funcCallHook "encoding2Attribute" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x47])) (strict_encoding2Attribute x47) x106 <- do x103 <- do x70 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 's')) x71 <- do x68 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 't')) x69 <- do x66 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'a')) x67 <- do x64 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'n')) x65 <- do x62 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'd')) x63 <- do x60 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'a')) x61 <- do x58 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'l')) x59 <- do x56 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x57 <- do x54 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'n')) x55 <- do x52 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'e')) x53 <- do x50 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '=')) x51 <- do x48 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '"')) x49 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x48, DI.genTerm x49])) (Prelude.return (Curry.DebugModule.Prelude.Cons x48 x49)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x50, DI.genTerm x51])) (Prelude.return (Curry.DebugModule.Prelude.Cons x50 x51)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x52, DI.genTerm x53])) (Prelude.return (Curry.DebugModule.Prelude.Cons x52 x53)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x54, DI.genTerm x55])) (Prelude.return (Curry.DebugModule.Prelude.Cons x54 x55)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x56, DI.genTerm x57])) (Prelude.return (Curry.DebugModule.Prelude.Cons x56 x57)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x58, DI.genTerm x59])) (Prelude.return (Curry.DebugModule.Prelude.Cons x58 x59)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x60, DI.genTerm x61])) (Prelude.return (Curry.DebugModule.Prelude.Cons x60 x61)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x62, DI.genTerm x63])) (Prelude.return (Curry.DebugModule.Prelude.Cons x62 x63)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x64, DI.genTerm x65])) (Prelude.return (Curry.DebugModule.Prelude.Cons x64 x65)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x66, DI.genTerm x67])) (Prelude.return (Curry.DebugModule.Prelude.Cons x66 x67)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x68, DI.genTerm x69])) (Prelude.return (Curry.DebugModule.Prelude.Cons x68 x69)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x70, DI.genTerm x71])) (Prelude.return (Curry.DebugModule.Prelude.Cons x70 x71)) x104 <- do x101 <- do x73 <- Prelude.return x1 x74 <- do x72 <- Prelude.return x1 DM.funcCallHook "hasDtdUrl" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x72])) (strict_hasDtdUrl x72) DM.funcCallHook "_case_101" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x73, DI.genTerm x74])) (strict__case_101 x73 x74) x102 <- do x99 <- do x83 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '"')) x84 <- do x81 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '?')) x82 <- do x79 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '>')) x80 <- do x77 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '\n')) x78 <- do x75 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '\n')) x76 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x75, DI.genTerm x76])) (Prelude.return (Curry.DebugModule.Prelude.Cons x75 x76)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x77, DI.genTerm x78])) (Prelude.return (Curry.DebugModule.Prelude.Cons x77 x78)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x79, DI.genTerm x80])) (Prelude.return (Curry.DebugModule.Prelude.Cons x79 x80)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x81, DI.genTerm x82])) (Prelude.return (Curry.DebugModule.Prelude.Cons x81 x82)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x83, DI.genTerm x84])) (Prelude.return (Curry.DebugModule.Prelude.Cons x83 x84)) x100 <- do x97 <- do x86 <- Prelude.return x1 x87 <- Prelude.return x3 x88 <- do x85 <- Prelude.return x1 DM.funcCallHook "hasDtdUrl" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x85])) (strict_hasDtdUrl x85) DM.funcCallHook "_case_100" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x86, DI.genTerm x87, DI.genTerm x88])) (strict__case_100 x86 x87 x88) x98 <- do x94 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Zero) x95 <- do x90 <- do x89 <- Prelude.return x1 DM.funcCallHook "lookupEncoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x89])) (strict_lookupEncoding x89) DM.funcCallHook "encoding2EncFunc" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x90])) (strict_encoding2EncFunc x90) x96 <- do x91 <- Prelude.return x3 x92 <- Prelude.return x4 x93 <- Prelude.return x5 DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x91, DI.genTerm x92, DI.genTerm x93])) (Prelude.return (XElem x91 x92 x93)) DM.funcCallHook "showXmlExp" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x94, DI.genTerm x95, DI.genTerm x96])) (strict_showXmlExp x94 x95 x96) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x97, DI.genTerm x98])) (Curry.DebugModule.Prelude.op_PlusPlus x97 x98) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x99, DI.genTerm x100])) (Curry.DebugModule.Prelude.op_PlusPlus x99 x100) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x101, DI.genTerm x102])) (Curry.DebugModule.Prelude.op_PlusPlus x101 x102) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x103, DI.genTerm x104])) (Curry.DebugModule.Prelude.op_PlusPlus x103 x104) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x105, DI.genTerm x106])) (Curry.DebugModule.Prelude.op_PlusPlus x105 x106) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x107, DI.genTerm x108])) (Curry.DebugModule.Prelude.op_PlusPlus x107 x108))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x109]))) (strict__case_102 x1) x109))) term_strict__case_102 x1 = DI.Term "_case_102" (DI.SrcID "XML" 0) x1 strict__case_100 x1 x3 x4 = DM.eval (DM.funcDeclHook "_case_100" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4])) (do x60 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x60])) (case x60 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x58 <- do x23 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '<')) x24 <- do x21 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '!')) x22 <- do x19 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'D')) x20 <- do x17 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'O')) x18 <- do x15 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'C')) x16 <- do x13 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'T')) x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'Y')) x12 <- do x9 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'P')) x10 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'E')) x8 <- do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x6 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14])) (Prelude.return (Curry.DebugModule.Prelude.Cons x13 x14)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16])) (Prelude.return (Curry.DebugModule.Prelude.Cons x15 x16)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18])) (Prelude.return (Curry.DebugModule.Prelude.Cons x17 x18)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x19, DI.genTerm x20])) (Prelude.return (Curry.DebugModule.Prelude.Cons x19 x20)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21, DI.genTerm x22])) (Prelude.return (Curry.DebugModule.Prelude.Cons x21 x22)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x23, DI.genTerm x24])) (Prelude.return (Curry.DebugModule.Prelude.Cons x23 x24)) x59 <- do x56 <- Prelude.return x3 x57 <- do x54 <- do x41 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x42 <- do x39 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'S')) x40 <- do x37 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'Y')) x38 <- do x35 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'S')) x36 <- do x33 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'T')) x34 <- do x31 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'E')) x32 <- do x29 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'M')) x30 <- do x27 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x28 <- do x25 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '"')) x26 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x25, DI.genTerm x26])) (Prelude.return (Curry.DebugModule.Prelude.Cons x25 x26)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x27, DI.genTerm x28])) (Prelude.return (Curry.DebugModule.Prelude.Cons x27 x28)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x29, DI.genTerm x30])) (Prelude.return (Curry.DebugModule.Prelude.Cons x29 x30)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x31, DI.genTerm x32])) (Prelude.return (Curry.DebugModule.Prelude.Cons x31 x32)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x33, DI.genTerm x34])) (Prelude.return (Curry.DebugModule.Prelude.Cons x33 x34)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x35, DI.genTerm x36])) (Prelude.return (Curry.DebugModule.Prelude.Cons x35 x36)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x37, DI.genTerm x38])) (Prelude.return (Curry.DebugModule.Prelude.Cons x37 x38)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x39, DI.genTerm x40])) (Prelude.return (Curry.DebugModule.Prelude.Cons x39 x40)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x41, DI.genTerm x42])) (Prelude.return (Curry.DebugModule.Prelude.Cons x41 x42)) x55 <- do x52 <- do x43 <- Prelude.return x1 DM.funcCallHook "lookupDtdUrl" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x43])) (strict_lookupDtdUrl x43) x53 <- do x50 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '"')) x51 <- do x48 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '>')) x49 <- do x46 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '\n')) x47 <- do x44 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '\n')) x45 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x44, DI.genTerm x45])) (Prelude.return (Curry.DebugModule.Prelude.Cons x44 x45)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x46, DI.genTerm x47])) (Prelude.return (Curry.DebugModule.Prelude.Cons x46 x47)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x48, DI.genTerm x49])) (Prelude.return (Curry.DebugModule.Prelude.Cons x48 x49)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x50, DI.genTerm x51])) (Prelude.return (Curry.DebugModule.Prelude.Cons x50 x51)) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x52, DI.genTerm x53])) (Curry.DebugModule.Prelude.op_PlusPlus x52 x53) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x54, DI.genTerm x55])) (Curry.DebugModule.Prelude.op_PlusPlus x54 x55) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x56, DI.genTerm x57])) (Curry.DebugModule.Prelude.op_PlusPlus x56 x57) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x58, DI.genTerm x59])) (Curry.DebugModule.Prelude.op_PlusPlus x58 x59))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x60]))) (strict__case_100 x1 x3) x60))) term_strict__case_100 x1 = DI.Term "_case_100" (DI.SrcID "XML" 0) x1 strict__case_101 x1 x2 = DM.eval (DM.funcDeclHook "_case_101" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2])) (do x13 <- Prelude.return x2 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13])) (case x13 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'n')) x6 <- do x3 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x4 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4])) (Prelude.return (Curry.DebugModule.Prelude.Cons x3 x4)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'y')) x12 <- do x9 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'e')) x10 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 's')) x8 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13]))) (strict__case_101 x1) x13))) term_strict__case_101 x1 = DI.Term "_case_101" (DI.SrcID "XML" 0) x1 strict__case_104 x1 = DM.eval (DM.funcDeclHook "_case_104" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x6 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x6])) (case x6 of Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.False))) Curry.DebugModule.Prelude.Cons x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x4 <- Prelude.return x3 x5 <- Prelude.return x2 DM.funcCallHook "_case_103" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (strict__case_103 x4 x5))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x6]))) strict__case_104 x6))) term_strict__case_104 x1 = DI.Term "_case_104" (DI.SrcID "XML" 0) x1 strict__case_103 x3 x2 = DM.eval (DM.funcDeclHook "_case_103" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2])) (do x7 <- Prelude.return x2 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x7])) (case x7 of DtdUrl x4 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.True))) Enc x5 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x3 DM.funcCallHook "hasDtdUrl" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6])) (strict_hasDtdUrl x6))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x7]))) (strict__case_103 x3) x7))) term_strict__case_103 x1 = DI.Term "_case_103" (DI.SrcID "XML" 0) x1 strict__case_106 x1 = DM.eval (DM.funcDeclHook "_case_106" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x6 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x6])) (case x6 of Curry.DebugModule.Prelude.Cons x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x4 <- Prelude.return x3 x5 <- Prelude.return x2 DM.funcCallHook "_case_105" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (strict__case_105 x4 x5))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x6]))) strict__case_106 x6))) term_strict__case_106 x1 = DI.Term "_case_106" (DI.SrcID "XML" 0) x1 strict__case_105 x3 x2 = DM.eval (DM.funcDeclHook "_case_105" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2])) (do x7 <- Prelude.return x2 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x7])) (case x7 of Enc x4 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x3 DM.funcCallHook "lookupDtdUrl" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6])) (strict_lookupDtdUrl x6))) DtdUrl x5 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x5)) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x7]))) (strict__case_105 x3) x7))) term_strict__case_105 x1 = DI.Term "_case_105" (DI.SrcID "XML" 0) x1 strict__case_108 x1 = DM.eval (DM.funcDeclHook "_case_108" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x6 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x6])) (case x6 of Curry.DebugModule.Prelude.Cons x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x4 <- Prelude.return x3 x5 <- Prelude.return x2 DM.funcCallHook "_case_107" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (strict__case_107 x4 x5))) Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return StandardEnc))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x6]))) strict__case_108 x6))) term_strict__case_108 x1 = DI.Term "_case_108" (DI.SrcID "XML" 0) x1 strict__case_107 x3 x2 = DM.eval (DM.funcDeclHook "_case_107" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2])) (do x7 <- Prelude.return x2 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x7])) (case x7 of Enc x4 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return x4)) DtdUrl x5 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x3 DM.funcCallHook "lookupEncoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6])) (strict_lookupEncoding x6))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x7]))) (strict__case_107 x3) x7))) term_strict__case_107 x1 = DI.Term "_case_107" (DI.SrcID "XML" 0) x1 strict__case_110 x1 = DM.eval (DM.funcDeclHook "_case_110" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x11 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x11])) (case x11 of Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil))) Curry.DebugModule.Prelude.Cons x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x8 <- Prelude.return x2 x9 <- Prelude.return x3 x10 <- do x6 <- do x5 <- do x4 <- Prelude.return x2 DM.funcCallHook "ord" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4])) (Curry.DebugModule.Prelude.strict_ord x4) DM.funcCallHook "elem" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (Curry.DebugModule.Prelude.strict_elem x5) x7 <- DM.funcCallHook "iso88591list" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) strict_iso88591list DM.funcCallHook "apply" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Curry.DebugModule.Prelude.strict_apply x6 x7) DM.funcCallHook "_case_109" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10])) (strict__case_109 x8 x9 x10))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x11]))) strict__case_110 x11))) term_strict__case_110 x1 = DI.Term "_case_110" (DI.SrcID "XML" 0) x1 strict__case_109 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_109" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x14 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14])) (case x14 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x2 x7 <- do x5 <- Prelude.return x3 DM.funcCallHook "iso88591Encoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (strict_iso88591Encoding x5) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x12 <- do x10 <- do x8 <- Prelude.return x2 x9 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9])) (Prelude.return (Curry.DebugModule.Prelude.Cons x8 x9)) DM.funcCallHook "standardEncoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10])) (strict_standardEncoding x10) x13 <- do x11 <- Prelude.return x3 DM.funcCallHook "iso88591Encoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11])) (strict_iso88591Encoding x11) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (Curry.DebugModule.Prelude.op_PlusPlus x12 x13))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14]))) (strict__case_109 x2 x3) x14))) term_strict__case_109 x1 = DI.Term "_case_109" (DI.SrcID "XML" 0) x1 strict__case_119 x1 = DM.eval (DM.funcDeclHook "_case_119" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x9 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x9])) (case x9 of Curry.DebugModule.Prelude.Nil -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil))) Curry.DebugModule.Prelude.Cons x2 x3 -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x2 x7 <- Prelude.return x3 x8 <- do x4 <- Prelude.return x2 x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '<')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (Curry.DebugModule.Prelude.op_EqEq x4 x5) DM.funcCallHook "_case_118" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8])) (strict__case_118 x6 x7 x8))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x9]))) strict__case_119 x9))) term_strict__case_119 x1 = DI.Term "_case_119" (DI.SrcID "XML" 0) x1 strict__case_118 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_118" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x21 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21])) (case x21 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '&')) x12 <- do x9 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'l')) x10 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 't')) x8 <- do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ';')) x6 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) x15 <- do x13 <- Prelude.return x3 DM.funcCallHook "standardEncoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13])) (strict_standardEncoding x13) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Curry.DebugModule.Prelude.op_PlusPlus x14 x15))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x18 <- Prelude.return x2 x19 <- Prelude.return x3 x20 <- do x16 <- Prelude.return x2 x17 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '>')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Curry.DebugModule.Prelude.op_EqEq x16 x17) DM.funcCallHook "_case_117" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20])) (strict__case_117 x18 x19 x20))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21]))) (strict__case_118 x2 x3) x21))) term_strict__case_118 x1 = DI.Term "_case_118" (DI.SrcID "XML" 0) x1 strict__case_117 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_117" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x21 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21])) (case x21 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '&')) x12 <- do x9 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'g')) x10 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 't')) x8 <- do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ';')) x6 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) x15 <- do x13 <- Prelude.return x3 DM.funcCallHook "standardEncoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13])) (strict_standardEncoding x13) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Curry.DebugModule.Prelude.op_PlusPlus x14 x15))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x18 <- Prelude.return x2 x19 <- Prelude.return x3 x20 <- do x16 <- Prelude.return x2 x17 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '&')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Curry.DebugModule.Prelude.op_EqEq x16 x17) DM.funcCallHook "_case_116" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20])) (strict__case_116 x18 x19 x20))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21]))) (strict__case_117 x2 x3) x21))) term_strict__case_117 x1 = DI.Term "_case_117" (DI.SrcID "XML" 0) x1 strict__case_116 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_116" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x23 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x23])) (case x23 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x16 <- do x13 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '&')) x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'a')) x12 <- do x9 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'm')) x10 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'p')) x8 <- do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ';')) x6 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14])) (Prelude.return (Curry.DebugModule.Prelude.Cons x13 x14)) x17 <- do x15 <- Prelude.return x3 DM.funcCallHook "standardEncoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15])) (strict_standardEncoding x15) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Curry.DebugModule.Prelude.op_PlusPlus x16 x17))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x20 <- Prelude.return x2 x21 <- Prelude.return x3 x22 <- do x18 <- Prelude.return x2 x19 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '"')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19])) (Curry.DebugModule.Prelude.op_EqEq x18 x19) DM.funcCallHook "_case_115" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20, DI.genTerm x21, DI.genTerm x22])) (strict__case_115 x20 x21 x22))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x23]))) (strict__case_116 x2 x3) x23))) term_strict__case_116 x1 = DI.Term "_case_116" (DI.SrcID "XML" 0) x1 strict__case_115 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_115" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x25 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x25])) (case x25 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x18 <- do x15 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '&')) x16 <- do x13 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'q')) x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'u')) x12 <- do x9 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x10 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 't')) x8 <- do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ';')) x6 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14])) (Prelude.return (Curry.DebugModule.Prelude.Cons x13 x14)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16])) (Prelude.return (Curry.DebugModule.Prelude.Cons x15 x16)) x19 <- do x17 <- Prelude.return x3 DM.funcCallHook "standardEncoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17])) (strict_standardEncoding x17) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19])) (Curry.DebugModule.Prelude.op_PlusPlus x18 x19))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x22 <- Prelude.return x2 x23 <- Prelude.return x3 x24 <- do x20 <- Prelude.return x2 x21 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '\'')) DM.funcCallHook "==" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20, DI.genTerm x21])) (Curry.DebugModule.Prelude.op_EqEq x20 x21) DM.funcCallHook "_case_114" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x22, DI.genTerm x23, DI.genTerm x24])) (strict__case_114 x22 x23 x24))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x25]))) (strict__case_115 x2 x3) x25))) term_strict__case_115 x1 = DI.Term "_case_115" (DI.SrcID "XML" 0) x1 strict__case_114 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_114" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x26 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x26])) (case x26 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x18 <- do x15 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '&')) x16 <- do x13 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'a')) x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'p')) x12 <- do x9 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x10 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 's')) x8 <- do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ';')) x6 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10])) (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14])) (Prelude.return (Curry.DebugModule.Prelude.Cons x13 x14)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16])) (Prelude.return (Curry.DebugModule.Prelude.Cons x15 x16)) x19 <- do x17 <- Prelude.return x3 DM.funcCallHook "standardEncoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x17])) (strict_standardEncoding x17) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19])) (Curry.DebugModule.Prelude.op_PlusPlus x18 x19))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x23 <- Prelude.return x2 x24 <- Prelude.return x3 x25 <- do x21 <- do x20 <- Prelude.return x2 DM.funcCallHook "ord" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20])) (Curry.DebugModule.Prelude.strict_ord x20) x22 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O (Curry.DebugModule.Prelude.O Curry.DebugModule.Prelude.IHi))))))) DM.funcCallHook "<" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21, DI.genTerm x22])) (Curry.DebugModule.Prelude.op_Lt x21 x22) DM.funcCallHook "_case_113" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x23, DI.genTerm x24, DI.genTerm x25])) (strict__case_113 x23 x24 x25))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x26]))) (strict__case_114 x2 x3) x26))) term_strict__case_114 x1 = DI.Term "_case_114" (DI.SrcID "XML" 0) x1 strict__case_113 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_113" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x26 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x26])) (case x26 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x18 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '&')) x8 <- do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '#')) x6 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) x19 <- do x16 <- do x10 <- do x9 <- Prelude.return x2 DM.funcCallHook "ord" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9])) (Curry.DebugModule.Prelude.strict_ord x9) DM.funcCallHook "show" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10])) (Curry.DebugModule.Prelude.strict_show x10) x17 <- do x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ';')) x12 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) x15 <- do x13 <- Prelude.return x3 DM.funcCallHook "standardEncoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13])) (strict_standardEncoding x13) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Curry.DebugModule.Prelude.op_PlusPlus x14 x15) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Curry.DebugModule.Prelude.op_PlusPlus x16 x17) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19])) (Curry.DebugModule.Prelude.op_PlusPlus x18 x19))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x23 <- Prelude.return x2 x24 <- Prelude.return x3 x25 <- do x21 <- do x20 <- Prelude.return x2 DM.funcCallHook "ord" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20])) (Curry.DebugModule.Prelude.strict_ord x20) x22 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Pos (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi)))))))) DM.funcCallHook ">" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x21, DI.genTerm x22])) (Curry.DebugModule.Prelude.op_Gt x21 x22) DM.funcCallHook "_case_112" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x23, DI.genTerm x24, DI.genTerm x25])) (strict__case_112 x23 x24 x25))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x26]))) (strict__case_113 x2 x3) x26))) term_strict__case_113 x1 = DI.Term "_case_113" (DI.SrcID "XML" 0) x1 strict__case_112 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_112" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x23 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x23])) (case x23 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x18 <- do x7 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '&')) x8 <- do x5 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '#')) x6 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6])) (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8])) (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8)) x19 <- do x16 <- do x10 <- do x9 <- Prelude.return x2 DM.funcCallHook "ord" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x9])) (Curry.DebugModule.Prelude.strict_ord x9) DM.funcCallHook "show" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10])) (Curry.DebugModule.Prelude.strict_show x10) x17 <- do x14 <- do x11 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ';')) x12 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12])) (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12)) x15 <- do x13 <- Prelude.return x3 DM.funcCallHook "standardEncoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x13])) (strict_standardEncoding x13) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Curry.DebugModule.Prelude.op_PlusPlus x14 x15) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Curry.DebugModule.Prelude.op_PlusPlus x16 x17) DM.funcCallHook "++" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19])) (Curry.DebugModule.Prelude.op_PlusPlus x18 x19))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x20 <- Prelude.return x2 x21 <- Prelude.return x3 x22 <- DM.funcCallHook "otherwise" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_otherwise DM.funcCallHook "_case_111" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20, DI.genTerm x21, DI.genTerm x22])) (strict__case_111 x20 x21 x22))) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x23]))) (strict__case_112 x2 x3) x23))) term_strict__case_112 x1 = DI.Term "_case_112" (DI.SrcID "XML" 0) x1 strict__case_111 x2 x3 x4 = DM.eval (DM.funcDeclHook "_case_111" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4])) (do x8 <- Prelude.return x4 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8])) (case x8 of Curry.DebugModule.Prelude.True -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x6 <- Prelude.return x2 x7 <- do x5 <- Prelude.return x3 DM.funcCallHook "standardEncoding" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x5])) (strict_standardEncoding x5) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7)))) Curry.DebugModule.Prelude.False -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.funcCallHook "failed" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) Curry.DebugModule.Prelude.strict_failed)) _ -> DM.treatCase (DM.nepCaseHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8]))) (strict__case_111 x2 x3) x8))) term_strict__case_111 x1 = DI.Term "_case_111" (DI.SrcID "XML" 0) x1 strict__case_120 x1 = DM.eval (DM.funcDeclHook "_case_120" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x2 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x2])) (case x2 of StandardEnc -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return (PC.partCall1 (term_strict_standardEncoding []) strict_standardEncoding))) Iso88591Enc -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (Prelude.return (PC.partCall1 (term_strict_iso88591Encoding []) strict_iso88591Encoding))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x2]))) strict__case_120 x2))) term_strict__case_120 x1 = DI.Term "_case_120" (DI.SrcID "XML" 0) x1 strict__case_121 x1 = DM.eval (DM.funcDeclHook "_case_121" (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x1])) (do x46 <- Prelude.return x1 DM.caseHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x46])) (case x46 of StandardEnc -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil))) Iso88591Enc -> DM.branchHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (DM.eval (do x44 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'e')) x45 <- do x42 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'n')) x43 <- do x40 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'c')) x41 <- do x38 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x39 <- do x36 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'd')) x37 <- do x34 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'i')) x35 <- do x32 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'n')) x33 <- do x30 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'g')) x31 <- do x28 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '=')) x29 <- do x26 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '"')) x27 <- do x24 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'i')) x25 <- do x22 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 's')) x23 <- do x20 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char 'o')) x21 <- do x18 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '-')) x19 <- do x16 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '8')) x17 <- do x14 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '8')) x15 <- do x12 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '5')) x13 <- do x10 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '9')) x11 <- do x8 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '-')) x9 <- do x6 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '1')) x7 <- do x4 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char '"')) x5 <- do x2 <- DM.litHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return (Curry.DebugModule.Prelude.Char ' ')) x3 <- DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [])) (Prelude.return Curry.DebugModule.Prelude.Nil) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3])) (Prelude.return (Curry.DebugModule.Prelude.Cons x2 x3)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5])) (Prelude.return (Curry.DebugModule.Prelude.Cons x4 x5)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7])) (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9])) (Prelude.return (Curry.DebugModule.Prelude.Cons x8 x9)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11])) (Prelude.return (Curry.DebugModule.Prelude.Cons x10 x11)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13])) (Prelude.return (Curry.DebugModule.Prelude.Cons x12 x13)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15])) (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17])) (Prelude.return (Curry.DebugModule.Prelude.Cons x16 x17)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19])) (Prelude.return (Curry.DebugModule.Prelude.Cons x18 x19)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x20, DI.genTerm x21])) (Prelude.return (Curry.DebugModule.Prelude.Cons x20 x21)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x22, DI.genTerm x23])) (Prelude.return (Curry.DebugModule.Prelude.Cons x22 x23)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x24, DI.genTerm x25])) (Prelude.return (Curry.DebugModule.Prelude.Cons x24 x25)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x26, DI.genTerm x27])) (Prelude.return (Curry.DebugModule.Prelude.Cons x26 x27)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x28, DI.genTerm x29])) (Prelude.return (Curry.DebugModule.Prelude.Cons x28 x29)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x30, DI.genTerm x31])) (Prelude.return (Curry.DebugModule.Prelude.Cons x30 x31)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x32, DI.genTerm x33])) (Prelude.return (Curry.DebugModule.Prelude.Cons x32 x33)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x34, DI.genTerm x35])) (Prelude.return (Curry.DebugModule.Prelude.Cons x34 x35)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x36, DI.genTerm x37])) (Prelude.return (Curry.DebugModule.Prelude.Cons x36 x37)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x38, DI.genTerm x39])) (Prelude.return (Curry.DebugModule.Prelude.Cons x38 x39)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x40, DI.genTerm x41])) (Prelude.return (Curry.DebugModule.Prelude.Cons x40 x41)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x42, DI.genTerm x43])) (Prelude.return (Curry.DebugModule.Prelude.Cons x42 x43)) DM.constructorHook (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] [DI.genTerm x44, DI.genTerm x45])) (Prelude.return (Curry.DebugModule.Prelude.Cons x44 x45)))) _ -> DM.treatCase (DM.nepRulesHook (DI.DebugInfo (DI.SrcID "XML" (- 1)) (DI.DynamicInfo [] [DI.genTerm x46]))) strict__case_121 x46))) term_strict__case_121 x1 = DI.Term "_case_121" (DI.SrcID "XML" 0) x1 term_XText x1 = DI.Term "XText" (DI.SrcID "XML" 0) x1 term_XElem x1 = DI.Term "XElem" (DI.SrcID "XML" 0) x1 term_Enc x1 = DI.Term "Enc" (DI.SrcID "XML" 0) x1 term_DtdUrl x1 = DI.Term "DtdUrl" (DI.SrcID "XML" 0) x1