import Text.Parsec
import Text.Parsec.String
import Text.Parsec.Combinator
+import Text.Parsec.Expr
+import Text.ParserCombinators.Parsec.Token
+import Text.ParserCombinators.Parsec.Expr
import Control.Monad
data DT_State = NoState | InData | InText deriving (Show,Eq)