190.12/170.56	MAYBE
192.17/171.16	proof of /export/starexec/sandbox/benchmark/theBenchmark.hs
192.17/171.16	# AProVE Commit ID: 48fb2092695e11cc9f56e44b17a92a5f88ffb256 marcel 20180622 unpublished dirty
192.17/171.16	
192.17/171.16	
192.17/171.16	H-Termination with start terms of the given HASKELL could not be shown:
192.17/171.16	
192.17/171.16	(0) HASKELL
192.17/171.16	(1) LR [EQUIVALENT, 0 ms]
192.17/171.16	(2) HASKELL
192.17/171.16	(3) CR [EQUIVALENT, 0 ms]
192.17/171.16	(4) HASKELL
192.17/171.16	(5) IFR [EQUIVALENT, 0 ms]
192.17/171.16	(6) HASKELL
192.17/171.16	(7) BR [EQUIVALENT, 4 ms]
192.17/171.16	(8) HASKELL
192.17/171.16	(9) COR [EQUIVALENT, 0 ms]
192.17/171.16	(10) HASKELL
192.17/171.16	(11) LetRed [EQUIVALENT, 0 ms]
192.17/171.16	(12) HASKELL
192.17/171.16	(13) NumRed [SOUND, 26 ms]
192.17/171.16	(14) HASKELL
192.17/171.16	
192.17/171.16	
192.17/171.16	----------------------------------------
192.17/171.16	
192.17/171.16	(0)
192.17/171.16	Obligation:
192.17/171.16	mainModule Main 
192.17/171.16	module Main where {
192.17/171.16	import qualified Prelude;
192.17/171.16	}
192.17/171.16	
192.17/171.16	----------------------------------------
192.17/171.16	
192.17/171.16	(1) LR (EQUIVALENT)
192.17/171.16	Lambda Reductions:
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu54->case vu54 of {
192.17/171.16	(ch,''' : t)  -> if ch /= ''' : [] then (''' : ch ++ ''' : [],t) : [] else [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lex0 vu54 = case vu54 of {
192.17/171.16	(ch,''' : t)  -> if ch /= ''' : [] then (''' : ch ++ ''' : [],t) : [] else [];
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu56->case vu56 of {
192.17/171.16	(str,u)  -> (ch ++ str,u) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexString0 ch vu56 = case vu56 of {
192.17/171.16	(str,u)  -> (ch ++ str,u) : [];
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu57->case vu57 of {
192.17/171.16	(ch,t)  -> concatMap (lexString0 ch) (lexString t);
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexString1 vu57 = case vu57 of {
192.17/171.16	(ch,t)  -> concatMap (lexString0 ch) (lexString t);
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu58->case vu58 of {
192.17/171.16	'\' : t  -> ([],t) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexStrItem0 vu58 = case vu58 of {
192.17/171.16	'\' : t  -> ([],t) : [];
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu55->case vu55 of {
192.17/171.16	(str,t)  -> ('"' : str,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lex1 vu55 = case vu55 of {
192.17/171.16	(str,t)  -> ('"' : str,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu63->case vu63 of {
192.17/171.16	(e,u)  -> ('.' : ds ++ e,u) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexFracExp0 ds vu63 = case vu63 of {
192.17/171.16	(e,u)  -> ('.' : ds ++ e,u) : [];
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu64->case vu64 of {
192.17/171.16	(ds,t)  -> concatMap (lexFracExp0 ds) (lexExp t);
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexFracExp1 vu64 = case vu64 of {
192.17/171.16	(ds,t)  -> concatMap (lexFracExp0 ds) (lexExp t);
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu65->case vu65 of {
192.17/171.16	(ds,u)  -> (e : c : ds,u) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexExp0 e c vu65 = case vu65 of {
192.17/171.16	(ds,u)  -> (e : c : ds,u) : [];
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu66->case vu66 of {
192.17/171.16	c : t  -> if c `elem` '+' : '-' : [] then concatMap (lexExp0 e c) (lexDigits t) else [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexExp1 e vu66 = case vu66 of {
192.17/171.16	c : t  -> if c `elem` '+' : '-' : [] then concatMap (lexExp0 e c) (lexDigits t) else [];
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu67->case vu67 of {
192.17/171.16	(ds,t)  -> (e : ds,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexExp2 e vu67 = case vu67 of {
192.17/171.16	(ds,t)  -> (e : ds,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu59->case vu59 of {
192.17/171.16	(sym,t)  -> (c : sym,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lex2 c vu59 = case vu59 of {
192.17/171.16	(sym,t)  -> (c : sym,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu60->case vu60 of {
192.17/171.16	(nam,t)  -> (c : nam,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lex3 c vu60 = case vu60 of {
192.17/171.16	(nam,t)  -> (c : nam,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu61->case vu61 of {
192.17/171.16	(fe,t)  -> (c : ds ++ fe,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lex4 c ds vu61 = case vu61 of {
192.17/171.16	(fe,t)  -> (c : ds ++ fe,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu62->case vu62 of {
192.17/171.16	(ds,s)  -> concatMap (lex4 c ds) (lexFracExp s);
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lex5 c vu62 = case vu62 of {
192.17/171.16	(ds,s)  -> concatMap (lex4 c ds) (lexFracExp s);
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\ab->(a,b)"
192.17/171.16	is transformed to
192.17/171.16	"zip0 a b = (a,b);
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu68->case vu68 of {
192.17/171.16	(cs@(_ : _),t)  -> (cs,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"nonnull0 vu68 = case vu68 of {
192.17/171.16	(cs@(_ : _),t)  -> (cs,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu48->case vu48 of {
192.17/171.16	(')' : [],u)  -> (x,u) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"mandatory0 x vu48 = case vu48 of {
192.17/171.16	(')' : [],u)  -> (x,u) : [];
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu49->case vu49 of {
192.17/171.16	(x,t)  -> concatMap (mandatory0 x) (lex t);
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"mandatory1 vu49 = case vu49 of {
192.17/171.16	(x,t)  -> concatMap (mandatory0 x) (lex t);
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu50->case vu50 of {
192.17/171.16	('(' : [],s)  -> concatMap mandatory1 (optional s);
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"mandatory2 vu50 = case vu50 of {
192.17/171.16	('(' : [],s)  -> concatMap mandatory1 (optional s);
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu69->case vu69 of {
192.17/171.16	([],s')  -> (mne,s') : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexEsc0 mne vu69 = case vu69 of {
192.17/171.16	([],s')  -> (mne,s') : [];
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\vu70->case vu70 of {
192.17/171.16	(c,mne)  -> concatMap (lexEsc0 mne) (lexmatch mne s : []);
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexEsc1 s vu70 = case vu70 of {
192.17/171.16	(c,mne)  -> concatMap (lexEsc0 mne) (lexmatch mne s : []);
192.17/171.16	_  -> []}
192.17/171.16	;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\(_,zs)->zs"
192.17/171.16	is transformed to
192.17/171.16	"zs0 (_,zs) = zs;
192.17/171.16	"
192.17/171.16	The following Lambda expression
192.17/171.16	"\(ys,_)->ys"
192.17/171.16	is transformed to
192.17/171.16	"ys0 (ys,_) = ys;
192.17/171.16	"
192.17/171.16	
192.17/171.16	----------------------------------------
192.17/171.16	
192.17/171.16	(2)
192.17/171.16	Obligation:
192.17/171.16	mainModule Main 
192.17/171.16	module Main where {
192.17/171.16	import qualified Prelude;
192.17/171.16	}
192.17/171.16	
192.17/171.16	----------------------------------------
192.17/171.16	
192.17/171.16	(3) CR (EQUIVALENT)
192.17/171.16	Case Reductions:
192.17/171.16	The following Case expression
192.17/171.16	"case vu55 of {
192.17/171.16	(str,t)  -> ('"' : str,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lex10 (str,t) = ('"' : str,t) : [];
192.17/171.16	lex10 _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu57 of {
192.17/171.16	(ch,t)  -> concatMap (lexString0 ch) (lexString t);
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexString10 (ch,t) = concatMap (lexString0 ch) (lexString t);
192.17/171.16	lexString10 _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu56 of {
192.17/171.16	(str,u)  -> (ch ++ str,u) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexString00 ch (str,u) = (ch ++ str,u) : [];
192.17/171.16	lexString00 ch _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu58 of {
192.17/171.16	'\' : t  -> ([],t) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexStrItem00 ('\' : t) = ([],t) : [];
192.17/171.16	lexStrItem00 _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu59 of {
192.17/171.16	(sym,t)  -> (c : sym,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lex20 c (sym,t) = (c : sym,t) : [];
192.17/171.16	lex20 c _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu67 of {
192.17/171.16	(ds,t)  -> (e : ds,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexExp20 e (ds,t) = (e : ds,t) : [];
192.17/171.16	lexExp20 e _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu65 of {
192.17/171.16	(ds,u)  -> (e : c : ds,u) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexExp00 e c (ds,u) = (e : c : ds,u) : [];
192.17/171.16	lexExp00 e c _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu62 of {
192.17/171.16	(ds,s)  -> concatMap (lex4 c ds) (lexFracExp s);
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lex50 c (ds,s) = concatMap (lex4 c ds) (lexFracExp s);
192.17/171.16	lex50 c _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu66 of {
192.17/171.16	c : t  -> if c `elem` '+' : '-' : [] then concatMap (lexExp0 e c) (lexDigits t) else [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexExp10 e (c : t) = if c `elem` '+' : '-' : [] then concatMap (lexExp0 e c) (lexDigits t) else [];
192.17/171.16	lexExp10 e _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu60 of {
192.17/171.16	(nam,t)  -> (c : nam,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lex30 c (nam,t) = (c : nam,t) : [];
192.17/171.16	lex30 c _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu61 of {
192.17/171.16	(fe,t)  -> (c : ds ++ fe,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lex40 c ds (fe,t) = (c : ds ++ fe,t) : [];
192.17/171.16	lex40 c ds _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu63 of {
192.17/171.16	(e,u)  -> ('.' : ds ++ e,u) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexFracExp00 ds (e,u) = ('.' : ds ++ e,u) : [];
192.17/171.16	lexFracExp00 ds _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu64 of {
192.17/171.16	(ds,t)  -> concatMap (lexFracExp0 ds) (lexExp t);
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexFracExp10 (ds,t) = concatMap (lexFracExp0 ds) (lexExp t);
192.17/171.16	lexFracExp10 _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu54 of {
192.17/171.16	(ch,''' : t)  -> if ch /= ''' : [] then (''' : ch ++ ''' : [],t) : [] else [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lex00 (ch,''' : t) = if ch /= ''' : [] then (''' : ch ++ ''' : [],t) : [] else [];
192.17/171.16	lex00 _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu48 of {
192.17/171.16	(')' : [],u)  -> (x,u) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"mandatory00 x (')' : [],u) = (x,u) : [];
192.17/171.16	mandatory00 x _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu49 of {
192.17/171.16	(x,t)  -> concatMap (mandatory0 x) (lex t);
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"mandatory10 (x,t) = concatMap (mandatory0 x) (lex t);
192.17/171.16	mandatory10 _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu50 of {
192.17/171.16	('(' : [],s)  -> concatMap mandatory1 (optional s);
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"mandatory20 ('(' : [],s) = concatMap mandatory1 (optional s);
192.17/171.16	mandatory20 _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu68 of {
192.17/171.16	(cs@(_ : _),t)  -> (cs,t) : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"nonnull00 (cs@(_ : _),t) = (cs,t) : [];
192.17/171.16	nonnull00 _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case concatMap (lexEsc1 s) table of {
192.17/171.16	pr : _  -> pr : [];
192.17/171.16	[]  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexEsc2 (pr : _) = pr : [];
192.17/171.16	lexEsc2 [] = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu69 of {
192.17/171.16	([],s')  -> (mne,s') : [];
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexEsc00 mne ([],s') = (mne,s') : [];
192.17/171.16	lexEsc00 mne _ = [];
192.17/171.16	"
192.17/171.16	The following Case expression
192.17/171.16	"case vu70 of {
192.17/171.16	(c,mne)  -> concatMap (lexEsc0 mne) (lexmatch mne s : []);
192.17/171.16	_  -> []}
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexEsc10 s (c,mne) = concatMap (lexEsc0 mne) (lexmatch mne s : []);
192.17/171.16	lexEsc10 s _ = [];
192.17/171.16	"
192.17/171.16	
192.17/171.16	----------------------------------------
192.17/171.16	
192.17/171.16	(4)
192.17/171.16	Obligation:
192.17/171.16	mainModule Main 
192.17/171.16	module Main where {
192.17/171.16	import qualified Prelude;
192.17/171.16	}
192.17/171.16	
192.17/171.16	----------------------------------------
192.17/171.16	
192.17/171.16	(5) IFR (EQUIVALENT)
192.17/171.16	If Reductions:
192.17/171.16	The following If expression
192.17/171.16	"if c `elem` '+' : '-' : [] then concatMap (lexExp0 e c) (lexDigits t) else []"
192.17/171.16	is transformed to
192.17/171.16	"lexExp100 e c t True = concatMap (lexExp0 e c) (lexDigits t);
192.17/171.16	lexExp100 e c t False = [];
192.17/171.16	"
192.17/171.16	The following If expression
192.17/171.16	"if b then mandatory else optional"
192.17/171.16	is transformed to
192.17/171.16	"readParen0 True = mandatory;
192.17/171.16	readParen0 False = optional;
192.17/171.16	"
192.17/171.16	The following If expression
192.17/171.16	"if ch /= ''' : [] then (''' : ch ++ ''' : [],t) : [] else []"
192.17/171.16	is transformed to
192.17/171.16	"lex000 ch t True = (''' : ch ++ ''' : [],t) : [];
192.17/171.16	lex000 ch t False = [];
192.17/171.16	"
192.17/171.16	
192.17/171.16	----------------------------------------
192.17/171.16	
192.17/171.16	(6)
192.17/171.16	Obligation:
192.17/171.16	mainModule Main 
192.17/171.16	module Main where {
192.17/171.16	import qualified Prelude;
192.17/171.16	}
192.17/171.16	
192.17/171.16	----------------------------------------
192.17/171.16	
192.17/171.16	(7) BR (EQUIVALENT)
192.17/171.16	Replaced joker patterns by fresh variables and removed binding patterns.
192.17/171.16	
192.17/171.16	Binding Reductions:
192.17/171.16	The bind variable of the following binding Pattern
192.17/171.16	"cs@(wu : wv)"
192.17/171.16	is replaced by the following term
192.17/171.16	"wu : wv"
192.17/171.16	The bind variable of the following binding Pattern
192.17/171.16	"xs@(zz : vuu)"
192.17/171.16	is replaced by the following term
192.17/171.16	"zz : vuu"
192.17/171.16	The bind variable of the following binding Pattern
192.17/171.16	"s@(vux : vuy)"
192.17/171.16	is replaced by the following term
192.17/171.16	"vux : vuy"
192.17/171.16	The bind variable of the following binding Pattern
192.17/171.16	"xs@(vvx : vvy)"
192.17/171.16	is replaced by the following term
192.17/171.16	"vvx : vvy"
192.17/171.16	
192.17/171.16	----------------------------------------
192.17/171.16	
192.17/171.16	(8)
192.17/171.16	Obligation:
192.17/171.16	mainModule Main 
192.17/171.16	module Main where {
192.17/171.16	import qualified Prelude;
192.17/171.16	}
192.17/171.16	
192.17/171.16	----------------------------------------
192.17/171.16	
192.17/171.16	(9) COR (EQUIVALENT)
192.17/171.16	Cond Reductions:
192.17/171.16	The following Function with conditions
192.17/171.16	"takeWhile p [] = [];
192.17/171.16	takeWhile p (x : xs)|p xx : takeWhile p xs|otherwise[];
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"takeWhile p [] = takeWhile3 p [];
192.17/171.16	takeWhile p (x : xs) = takeWhile2 p (x : xs);
192.17/171.16	"
192.17/171.16	"takeWhile0 p x xs True = [];
192.17/171.16	"
192.17/171.16	"takeWhile1 p x xs True = x : takeWhile p xs;
192.17/171.16	takeWhile1 p x xs False = takeWhile0 p x xs otherwise;
192.17/171.16	"
192.17/171.16	"takeWhile2 p (x : xs) = takeWhile1 p x xs (p x);
192.17/171.16	"
192.17/171.16	"takeWhile3 p [] = [];
192.17/171.16	takeWhile3 vwx vwy = takeWhile2 vwx vwy;
192.17/171.16	"
192.17/171.16	The following Function with conditions
192.17/171.16	"lexString ('"' : s) = ('"' : [],s) : [];
192.17/171.16	lexString s = concatMap lexString1 (lexStrItem s);
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexString (vxu : s) = lexString4 (vxu : s);
192.17/171.16	lexString s = lexString2 s;
192.17/171.16	"
192.17/171.16	"lexString2 s = concatMap lexString1 (lexStrItem s);
192.17/171.16	"
192.17/171.16	"lexString3 True (vxu : s) = ('"' : [],s) : [];
192.17/171.16	lexString3 vxv vxw = lexString2 vxw;
192.17/171.16	"
192.17/171.16	"lexString4 (vxu : s) = lexString3 (vxu == '"') (vxu : s);
192.17/171.16	lexString4 vxx = lexString2 vxx;
192.17/171.16	"
192.17/171.16	The following Function with conditions
192.17/171.16	"lexStrItem ('\' : '&' : s) = ('\' : '&' : [],s) : [];
192.17/171.16	lexStrItem ('\' : c : s)|isSpace cconcatMap lexStrItem0 (dropWhile isSpace s : []);
192.17/171.16	lexStrItem s = lexLitChar s;
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexStrItem (vzv : vzz) = lexStrItem7 (vzv : vzz);
192.17/171.16	lexStrItem (vxz : vyw) = lexStrItem4 (vxz : vyw);
192.17/171.16	lexStrItem s = lexStrItem1 s;
192.17/171.16	"
192.17/171.16	"lexStrItem1 s = lexLitChar s;
192.17/171.16	"
192.17/171.16	"lexStrItem2 vxz c s True = concatMap lexStrItem0 (dropWhile isSpace s : []);
192.17/171.16	lexStrItem2 vxz c s False = lexStrItem1 (vxz : c : s);
192.17/171.16	"
192.17/171.16	"lexStrItem3 True (vxz : c : s) = lexStrItem2 vxz c s (isSpace c);
192.17/171.16	lexStrItem3 vyx vyy = lexStrItem1 vyy;
192.17/171.16	"
192.17/171.16	"lexStrItem4 (vxz : vyw) = lexStrItem3 (vxz == '\') (vxz : vyw);
192.17/171.16	lexStrItem4 vyz = lexStrItem1 vyz;
192.17/171.16	"
192.17/171.16	"lexStrItem5 True (vzv : vzx : s) = ('\' : '&' : [],s) : [];
192.17/171.16	lexStrItem5 wuu wuv = lexStrItem4 wuv;
192.17/171.16	"
192.17/171.16	"lexStrItem6 True (vzv : vzx : s) = lexStrItem5 (vzx == '&') (vzv : vzx : s);
192.17/171.16	lexStrItem6 wuw wux = lexStrItem4 wux;
192.17/171.16	"
192.17/171.16	"lexStrItem7 (vzv : vzz) = lexStrItem6 (vzv == '\') (vzv : vzz);
192.17/171.16	lexStrItem7 wuy = lexStrItem4 wuy;
192.17/171.16	"
192.17/171.16	The following Function with conditions
192.17/171.16	"lexStrItem00 ('\' : t) = ([],t) : [];
192.17/171.16	lexStrItem00 wz = [];
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexStrItem00 (wvu : t) = lexStrItem002 (wvu : t);
192.17/171.16	lexStrItem00 wz = lexStrItem000 wz;
192.17/171.16	"
192.17/171.16	"lexStrItem000 wz = [];
192.17/171.16	"
192.17/171.16	"lexStrItem001 True (wvu : t) = ([],t) : [];
192.17/171.16	lexStrItem001 wvv wvw = lexStrItem000 wvw;
192.17/171.16	"
192.17/171.16	"lexStrItem002 (wvu : t) = lexStrItem001 (wvu == '\') (wvu : t);
192.17/171.16	lexStrItem002 wvx = lexStrItem000 wvx;
192.17/171.16	"
192.17/171.16	The following Function with conditions
192.17/171.16	"lexExp (e : s)|e `elem` 'e' : 'E' : []concatMap (lexExp1 e) (s : []) ++ concatMap (lexExp2 e) (lexDigits s);
192.17/171.16	lexExp s = ([],s) : [];
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexExp (e : s) = lexExp5 (e : s);
192.17/171.16	lexExp s = lexExp3 s;
192.17/171.16	"
192.17/171.16	"lexExp3 s = ([],s) : [];
192.17/171.16	"
192.17/171.16	"lexExp4 e s True = concatMap (lexExp1 e) (s : []) ++ concatMap (lexExp2 e) (lexDigits s);
192.17/171.16	lexExp4 e s False = lexExp3 (e : s);
192.17/171.16	"
192.17/171.16	"lexExp5 (e : s) = lexExp4 e s (e `elem` 'e' : 'E' : []);
192.17/171.16	lexExp5 wvz = lexExp3 wvz;
192.17/171.16	"
192.17/171.16	The following Function with conditions
192.17/171.16	"lexFracExp ('.' : c : cs)|isDigit cconcatMap lexFracExp1 (lexDigits (c : cs));
192.17/171.16	lexFracExp s = lexExp s;
192.17/171.16	"
192.17/171.16	is transformed to
192.17/171.16	"lexFracExp (wwv : wwy) = lexFracExp5 (wwv : wwy);
192.17/171.16	lexFracExp s = lexFracExp2 s;
192.17/171.16	"
192.17/171.16	"lexFracExp2 s = lexExp s;
192.17/171.16	"
192.17/171.16	"lexFracExp3 wwv c cs True = concatMap lexFracExp1 (lexDigits (c : cs));
192.17/171.16	lexFracExp3 wwv c cs False = lexFracExp2 (wwv : c : cs);
192.17/171.16	"
192.17/171.16	"lexFracExp4 True (wwv : c : cs) = lexFracExp3 wwv c cs (isDigit c);
192.17/171.16	lexFracExp4 wwz wxu = lexFracExp2 wxu;
192.17/171.16	"
192.17/171.16	"lexFracExp5 (wwv : wwy) = lexFracExp4 (wwv == '.') (wwv : wwy);
192.17/171.16	lexFracExp5 wxv = lexFracExp2 wxv;
192.17/171.16	"
192.17/171.16	The following Function with conditions
192.17/171.16	"lex [] = ([],[]) : [];
192.17/171.16	lex (c : s)|isSpace clex (dropWhile isSpace s);
192.17/171.16	lex (''' : s) = concatMap lex0 (lexLitChar s);
192.17/171.16	lex ('"' : s) = concatMap lex1 (lexString s) where {
192.17/171.16	lex1 vu55 = lex10 vu55;
192.17/171.16	;
192.17/171.16	lex10 (str,t) = ('"' : str,t) : [];
192.17/171.16	lex10 xu = [];
192.17/171.16	;
192.17/171.16	lexStrItem ('\' : '&' : s) = ('\' : '&' : [],s) : [];
192.17/171.16	lexStrItem ('\' : c : s)|isSpace cconcatMap lexStrItem0 (dropWhile isSpace s : []);
192.17/171.16	lexStrItem s = lexLitChar s;
192.17/171.16	;
192.17/171.16	lexStrItem0 vu58 = lexStrItem00 vu58;
192.17/171.16	;
192.17/171.16	lexStrItem00 ('\' : t) = ([],t) : [];
192.17/171.16	lexStrItem00 wz = [];
192.17/171.16	;
192.17/171.16	lexString ('"' : s) = ('"' : [],s) : [];
192.17/171.16	lexString s = concatMap lexString1 (lexStrItem s);
192.17/171.16	;
192.17/171.16	lexString0 ch vu56 = lexString00 ch vu56;
192.17/171.16	;
192.17/171.16	lexString00 ch (str,u) = (ch ++ str,u) : [];
192.17/171.16	lexString00 ch wx = [];
192.17/171.16	;
192.17/171.16	lexString1 vu57 = lexString10 vu57;
192.17/171.16	;
192.17/171.16	lexString10 (ch,t) = concatMap (lexString0 ch) (lexString t);
192.17/171.16	lexString10 wy = [];
192.17/171.16	} 
192.17/171.16	;
192.17/171.16	lex (c : s)|isSingle c(c : [],s) : []|isSym cconcatMap (lex2 c) (span isSym s : [])|isAlpha cconcatMap (lex3 c) (span isIdChar s : [])|isDigit cconcatMap (lex5 c) (span isDigit s : [])|otherwise[] where {
192.17/171.16	isIdChar c = isAlphaNum c || c `elem` '_' : ''' : [];
192.17/171.16	;
192.17/171.16	isSingle c = c `elem` ',' : ';' : '(' : ')' : '[' : ']' : '{' : '}' : '_' : '`' : [];
192.17/171.16	;
192.17/171.16	isSym c = c `elem` '!' : '@' : '#' : '$' : '%' : '&' : '*' : '+' : '.' : '/' : '<' : '=' : '>' : '?' : '\' : '^' : '|' : ':' : '-' : '~' : [];
192.17/171.16	;
192.17/171.16	lex2 c vu59 = lex20 c vu59;
192.17/171.16	;
192.17/171.16	lex20 c (sym,t) = (c : sym,t) : [];
192.17/171.16	lex20 c yw = [];
192.17/171.16	;
192.17/171.16	lex3 c vu60 = lex30 c vu60;
192.17/171.16	;
192.17/171.16	lex30 c (nam,t) = (c : nam,t) : [];
192.17/171.16	lex30 c yx = [];
192.17/171.16	;
192.17/171.16	lex4 c ds vu61 = lex40 c ds vu61;
192.17/171.16	;
192.17/171.16	lex40 c ds (fe,t) = (c : ds ++ fe,t) : [];
192.17/171.16	lex40 c ds yu = [];
192.60/171.21	;
192.60/171.21	lex5 c vu62 = lex50 c vu62;
192.60/171.21	;
192.60/171.21	lex50 c (ds,s) = concatMap (lex4 c ds) (lexFracExp s);
192.60/171.21	lex50 c yv = [];
192.60/171.21	;
192.60/171.21	lexExp (e : s)|e `elem` 'e' : 'E' : []concatMap (lexExp1 e) (s : []) ++ concatMap (lexExp2 e) (lexDigits s);
192.60/171.21	lexExp s = ([],s) : [];
192.60/171.21	;
192.60/171.21	lexExp0 e c vu65 = lexExp00 e c vu65;
192.60/171.21	;
192.60/171.21	lexExp00 e c (ds,u) = (e : c : ds,u) : [];
192.60/171.21	lexExp00 e c xv = [];
192.60/171.21	;
192.60/171.21	lexExp1 e vu66 = lexExp10 e vu66;
192.60/171.21	;
192.60/171.21	lexExp10 e (c : t) = lexExp100 e c t (c `elem` '+' : '-' : []);
192.60/171.21	lexExp10 e xx = [];
192.60/171.21	;
192.60/171.21	lexExp100 e c t True = concatMap (lexExp0 e c) (lexDigits t);
192.60/171.21	lexExp100 e c t False = [];
192.60/171.21	;
192.60/171.21	lexExp2 e vu67 = lexExp20 e vu67;
192.60/171.21	;
192.60/171.21	lexExp20 e (ds,t) = (e : ds,t) : [];
192.60/171.21	lexExp20 e xw = [];
192.60/171.21	;
192.60/171.21	lexFracExp ('.' : c : cs)|isDigit cconcatMap lexFracExp1 (lexDigits (c : cs));
192.60/171.21	lexFracExp s = lexExp s;
192.60/171.21	;
192.60/171.21	lexFracExp0 ds vu63 = lexFracExp00 ds vu63;
192.60/171.21	;
192.60/171.21	lexFracExp00 ds (e,u) = ('.' : ds ++ e,u) : [];
192.60/171.21	lexFracExp00 ds xz = [];
192.60/171.21	;
192.60/171.21	lexFracExp1 vu64 = lexFracExp10 vu64;
192.60/171.21	;
192.60/171.21	lexFracExp10 (ds,t) = concatMap (lexFracExp0 ds) (lexExp t);
192.60/171.21	lexFracExp10 xy = [];
192.60/171.21	} 
192.60/171.21	;
192.60/171.21	"
192.60/171.21	is transformed to
192.60/171.21	"lex [] = lex19 [];
192.60/171.21	lex (c : s) = lex18 (c : s);
192.60/171.21	lex (wyx : s) = lex16 (wyx : s);
192.60/171.21	lex (wxy : s) = lex14 (wxy : s);
192.60/171.21	lex (c : s) = lex12 (c : s);
192.60/171.21	"
192.60/171.21	"lex12 (c : s) = lex11 c s (isSingle c) where {
192.60/171.21	isIdChar c = isAlphaNum c || c `elem` '_' : ''' : [];
192.60/171.21	;
192.60/171.21	isSingle c = c `elem` ',' : ';' : '(' : ')' : '[' : ']' : '{' : '}' : '_' : '`' : [];
192.60/171.21	;
192.60/171.21	isSym c = c `elem` '!' : '@' : '#' : '$' : '%' : '&' : '*' : '+' : '.' : '/' : '<' : '=' : '>' : '?' : '\' : '^' : '|' : ':' : '-' : '~' : [];
192.60/171.21	;
192.60/171.21	lex11 c s True = (c : [],s) : [];
192.60/171.21	lex11 c s False = lex9 c s (isSym c);
192.60/171.21	;
192.60/171.21	lex2 c vu59 = lex20 c vu59;
192.60/171.21	;
192.60/171.21	lex20 c (sym,t) = (c : sym,t) : [];
192.60/171.21	lex20 c yw = [];
192.60/171.21	;
192.60/171.21	lex3 c vu60 = lex30 c vu60;
192.60/171.21	;
192.60/171.21	lex30 c (nam,t) = (c : nam,t) : [];
192.60/171.21	lex30 c yx = [];
192.60/171.21	;
192.60/171.21	lex4 c ds vu61 = lex40 c ds vu61;
192.60/171.21	;
192.60/171.21	lex40 c ds (fe,t) = (c : ds ++ fe,t) : [];
192.60/171.21	lex40 c ds yu = [];
192.60/171.21	;
192.60/171.21	lex5 c vu62 = lex50 c vu62;
192.60/171.21	;
192.60/171.21	lex50 c (ds,s) = concatMap (lex4 c ds) (lexFracExp s);
192.60/171.21	lex50 c yv = [];
192.60/171.21	;
192.60/171.21	lex6 c s True = [];
192.60/171.21	;
192.60/171.21	lex7 c s True = concatMap (lex5 c) (span isDigit s : []);
192.60/171.21	lex7 c s False = lex6 c s otherwise;
192.60/171.21	;
192.60/171.21	lex8 c s True = concatMap (lex3 c) (span isIdChar s : []);
192.60/171.21	lex8 c s False = lex7 c s (isDigit c);
192.60/171.21	;
192.60/171.21	lex9 c s True = concatMap (lex2 c) (span isSym s : []);
192.60/171.21	lex9 c s False = lex8 c s (isAlpha c);
192.60/171.21	;
192.60/171.21	lexExp (e : s) = lexExp5 (e : s);
192.60/171.21	lexExp s = lexExp3 s;
192.60/171.21	;
192.60/171.21	lexExp0 e c vu65 = lexExp00 e c vu65;
192.60/171.21	;
192.60/171.21	lexExp00 e c (ds,u) = (e : c : ds,u) : [];
192.60/171.21	lexExp00 e c xv = [];
192.60/171.21	;
192.60/171.21	lexExp1 e vu66 = lexExp10 e vu66;
192.60/171.21	;
192.60/171.21	lexExp10 e (c : t) = lexExp100 e c t (c `elem` '+' : '-' : []);
192.60/171.21	lexExp10 e xx = [];
192.60/171.21	;
192.60/171.21	lexExp100 e c t True = concatMap (lexExp0 e c) (lexDigits t);
192.60/171.21	lexExp100 e c t False = [];
192.60/171.21	;
192.60/171.21	lexExp2 e vu67 = lexExp20 e vu67;
192.60/171.21	;
192.60/171.21	lexExp20 e (ds,t) = (e : ds,t) : [];
192.60/171.21	lexExp20 e xw = [];
192.60/171.21	;
192.60/171.21	lexExp3 s = ([],s) : [];
192.60/171.21	;
192.60/171.21	lexExp4 e s True = concatMap (lexExp1 e) (s : []) ++ concatMap (lexExp2 e) (lexDigits s);
192.60/171.21	lexExp4 e s False = lexExp3 (e : s);
192.60/171.21	;
192.60/171.21	lexExp5 (e : s) = lexExp4 e s (e `elem` 'e' : 'E' : []);
192.60/171.21	lexExp5 wvz = lexExp3 wvz;
192.60/171.21	;
192.60/171.21	lexFracExp (wwv : wwy) = lexFracExp5 (wwv : wwy);
192.60/171.21	lexFracExp s = lexFracExp2 s;
192.60/171.21	;
192.60/171.21	lexFracExp0 ds vu63 = lexFracExp00 ds vu63;
192.60/171.21	;
192.60/171.21	lexFracExp00 ds (e,u) = ('.' : ds ++ e,u) : [];
192.60/171.21	lexFracExp00 ds xz = [];
192.60/171.21	;
192.60/171.21	lexFracExp1 vu64 = lexFracExp10 vu64;
192.60/171.21	;
192.60/171.21	lexFracExp10 (ds,t) = concatMap (lexFracExp0 ds) (lexExp t);
192.60/171.21	lexFracExp10 xy = [];
192.60/171.21	;
192.60/171.21	lexFracExp2 s = lexExp s;
192.60/171.21	;
192.60/171.21	lexFracExp3 wwv c cs True = concatMap lexFracExp1 (lexDigits (c : cs));
192.60/171.21	lexFracExp3 wwv c cs False = lexFracExp2 (wwv : c : cs);
192.60/171.21	;
192.60/171.21	lexFracExp4 True (wwv : c : cs) = lexFracExp3 wwv c cs (isDigit c);
192.60/171.21	lexFracExp4 wwz wxu = lexFracExp2 wxu;
192.60/171.21	;
192.60/171.21	lexFracExp5 (wwv : wwy) = lexFracExp4 (wwv == '.') (wwv : wwy);
192.60/171.21	lexFracExp5 wxv = lexFracExp2 wxv;
192.60/171.21	} 
192.60/171.21	;
192.60/171.21	"
192.60/171.21	"lex13 True (wxy : s) = concatMap lex1 (lexString s) where {
192.60/171.21	lex1 vu55 = lex10 vu55;
192.60/171.21	;
192.60/171.21	lex10 (str,t) = ('"' : str,t) : [];
192.60/171.21	lex10 xu = [];
192.60/171.21	;
192.60/171.21	lexStrItem (vzv : vzz) = lexStrItem7 (vzv : vzz);
192.60/171.21	lexStrItem (vxz : vyw) = lexStrItem4 (vxz : vyw);
192.60/171.21	lexStrItem s = lexStrItem1 s;
192.60/171.21	;
192.60/171.21	lexStrItem0 vu58 = lexStrItem00 vu58;
192.60/171.21	;
192.60/171.21	lexStrItem00 (wvu : t) = lexStrItem002 (wvu : t);
192.60/171.21	lexStrItem00 wz = lexStrItem000 wz;
192.60/171.21	;
192.60/171.21	lexStrItem000 wz = [];
192.60/171.21	;
192.60/171.21	lexStrItem001 True (wvu : t) = ([],t) : [];
192.60/171.21	lexStrItem001 wvv wvw = lexStrItem000 wvw;
192.60/171.21	;
192.60/171.21	lexStrItem002 (wvu : t) = lexStrItem001 (wvu == '\') (wvu : t);
192.60/171.21	lexStrItem002 wvx = lexStrItem000 wvx;
192.60/171.21	;
192.60/171.21	lexStrItem1 s = lexLitChar s;
192.60/171.21	;
192.60/171.21	lexStrItem2 vxz c s True = concatMap lexStrItem0 (dropWhile isSpace s : []);
192.60/171.21	lexStrItem2 vxz c s False = lexStrItem1 (vxz : c : s);
192.60/171.21	;
192.60/171.21	lexStrItem3 True (vxz : c : s) = lexStrItem2 vxz c s (isSpace c);
192.60/171.21	lexStrItem3 vyx vyy = lexStrItem1 vyy;
192.60/171.21	;
192.60/171.21	lexStrItem4 (vxz : vyw) = lexStrItem3 (vxz == '\') (vxz : vyw);
192.60/171.21	lexStrItem4 vyz = lexStrItem1 vyz;
192.60/171.21	;
192.60/171.21	lexStrItem5 True (vzv : vzx : s) = ('\' : '&' : [],s) : [];
192.60/171.21	lexStrItem5 wuu wuv = lexStrItem4 wuv;
192.60/171.21	;
192.60/171.21	lexStrItem6 True (vzv : vzx : s) = lexStrItem5 (vzx == '&') (vzv : vzx : s);
192.60/171.21	lexStrItem6 wuw wux = lexStrItem4 wux;
192.60/171.21	;
192.60/171.21	lexStrItem7 (vzv : vzz) = lexStrItem6 (vzv == '\') (vzv : vzz);
192.60/171.21	lexStrItem7 wuy = lexStrItem4 wuy;
192.60/171.21	;
192.60/171.21	lexString (vxu : s) = lexString4 (vxu : s);
192.60/171.21	lexString s = lexString2 s;
192.60/171.21	;
192.60/171.21	lexString0 ch vu56 = lexString00 ch vu56;
192.60/171.21	;
192.60/171.21	lexString00 ch (str,u) = (ch ++ str,u) : [];
192.60/171.21	lexString00 ch wx = [];
192.60/171.21	;
192.60/171.21	lexString1 vu57 = lexString10 vu57;
192.60/171.21	;
192.60/171.21	lexString10 (ch,t) = concatMap (lexString0 ch) (lexString t);
192.60/171.21	lexString10 wy = [];
192.60/171.21	;
192.60/171.21	lexString2 s = concatMap lexString1 (lexStrItem s);
192.60/171.21	;
192.60/171.21	lexString3 True (vxu : s) = ('"' : [],s) : [];
192.60/171.21	lexString3 vxv vxw = lexString2 vxw;
192.60/171.21	;
192.60/171.21	lexString4 (vxu : s) = lexString3 (vxu == '"') (vxu : s);
192.60/171.21	lexString4 vxx = lexString2 vxx;
192.60/171.21	} 
192.60/171.21	;
192.60/171.21	lex13 wxz wyu = lex12 wyu;
192.60/171.21	"
192.60/171.21	"lex14 (wxy : s) = lex13 (wxy == '"') (wxy : s);
192.60/171.21	lex14 wyv = lex12 wyv;
192.60/171.21	"
192.60/171.21	"lex15 True (wyx : s) = concatMap lex0 (lexLitChar s);
192.60/171.21	lex15 wyy wyz = lex14 wyz;
192.60/171.21	"
192.60/171.21	"lex16 (wyx : s) = lex15 (wyx == ''') (wyx : s);
192.60/171.21	lex16 wzu = lex14 wzu;
192.60/171.21	"
192.60/171.21	"lex17 c s True = lex (dropWhile isSpace s);
192.60/171.21	lex17 c s False = lex16 (c : s);
192.60/171.21	"
192.60/171.21	"lex18 (c : s) = lex17 c s (isSpace c);
192.60/171.21	lex18 wzw = lex16 wzw;
192.60/171.21	"
192.60/171.21	"lex19 [] = ([],[]) : [];
192.60/171.21	lex19 wzy = lex18 wzy;
192.60/171.21	"
192.60/171.21	The following Function with conditions
192.60/171.21	"lexmatch (x : xs) (y : ys)|x == ylexmatch xs ys;
192.60/171.21	lexmatch xs ys = (xs,ys);
192.60/171.21	"
192.60/171.21	is transformed to
192.60/171.21	"lexmatch (x : xs) (y : ys) = lexmatch2 (x : xs) (y : ys);
192.60/171.21	lexmatch xs ys = lexmatch0 xs ys;
192.60/171.21	"
192.60/171.21	"lexmatch0 xs ys = (xs,ys);
192.60/171.21	"
192.60/171.21	"lexmatch1 x xs y ys True = lexmatch xs ys;
192.60/171.21	lexmatch1 x xs y ys False = lexmatch0 (x : xs) (y : ys);
192.60/171.21	"
192.60/171.21	"lexmatch2 (x : xs) (y : ys) = lexmatch1 x xs y ys (x == y);
192.60/171.21	lexmatch2 xuv xuw = lexmatch0 xuv xuw;
192.60/171.21	"
192.60/171.21	The following Function with conditions
192.60/171.21	"undefined |Falseundefined;
192.60/171.21	"
192.60/171.21	is transformed to
192.60/171.21	"undefined  = undefined1;
192.60/171.21	"
192.60/171.21	"undefined0 True = undefined;
192.60/171.21	"
192.60/171.21	"undefined1  = undefined0 False;
192.60/171.21	"
192.60/171.21	The following Function with conditions
192.60/171.21	"mandatory20 ('(' : [],s) = concatMap mandatory1 (optional s);
192.60/171.21	mandatory20 zw = [];
192.60/171.21	"
192.60/171.21	is transformed to
192.60/171.21	"mandatory20 (xuz : xvu,s) = mandatory202 (xuz : xvu,s);
192.60/171.21	mandatory20 zw = mandatory200 zw;
192.60/171.21	"
192.60/171.21	"mandatory200 zw = [];
192.60/171.21	"
192.60/171.21	"mandatory201 True (xuz : [],s) = concatMap mandatory1 (optional s);
192.60/171.21	mandatory201 xvv xvw = mandatory200 xvw;
192.60/171.21	"
192.60/171.21	"mandatory202 (xuz : xvu,s) = mandatory201 (xuz == '(') (xuz : xvu,s);
192.60/171.21	mandatory202 xvx = mandatory200 xvx;
192.60/171.21	"
192.60/171.21	The following Function with conditions
192.62/171.21	"mandatory00 x (')' : [],u) = (x,u) : [];
192.62/171.21	mandatory00 x zx = [];
192.62/171.21	"
192.62/171.21	is transformed to
192.62/171.21	"mandatory00 x (xwu : xwv,u) = mandatory002 x (xwu : xwv,u);
192.62/171.21	mandatory00 x zx = mandatory000 x zx;
192.62/171.21	"
192.62/171.21	"mandatory000 x zx = [];
192.62/171.21	"
192.62/171.21	"mandatory001 True x (xwu : [],u) = (x,u) : [];
192.62/171.21	mandatory001 xww xwx xwy = mandatory000 xwx xwy;
192.62/171.21	"
192.62/171.21	"mandatory002 x (xwu : xwv,u) = mandatory001 (xwu == ')') x (xwu : xwv,u);
192.62/171.21	mandatory002 xwz xxu = mandatory000 xwz xxu;
192.62/171.21	"
192.62/171.21	The following Function with conditions
192.62/171.21	"dropWhile p [] = [];
192.62/171.21	dropWhile p (zz : vuu)|p zzdropWhile p vuu|otherwisezz : vuu;
192.62/171.21	"
192.62/171.21	is transformed to
192.62/171.21	"dropWhile p [] = dropWhile3 p [];
192.62/171.21	dropWhile p (zz : vuu) = dropWhile2 p (zz : vuu);
192.62/171.21	"
192.62/171.21	"dropWhile0 p zz vuu True = zz : vuu;
192.62/171.21	"
192.62/171.21	"dropWhile1 p zz vuu True = dropWhile p vuu;
192.62/171.21	dropWhile1 p zz vuu False = dropWhile0 p zz vuu otherwise;
192.62/171.21	"
192.62/171.21	"dropWhile2 p (zz : vuu) = dropWhile1 p zz vuu (p zz);
192.62/171.21	"
192.62/171.21	"dropWhile3 p [] = [];
192.62/171.21	dropWhile3 xxx xxy = dropWhile2 xxx xxy;
192.62/171.21	"
192.62/171.21	The following Function with conditions
192.62/171.21	"lex00 (ch,''' : t) = lex000 ch t (ch /= ''' : []);
192.62/171.21	lex00 vuv = [];
192.62/171.21	"
192.62/171.21	is transformed to
192.62/171.21	"lex00 (ch,xyv : t) = lex003 (ch,xyv : t);
192.62/171.21	lex00 vuv = lex001 vuv;
192.62/171.21	"
192.62/171.21	"lex001 vuv = [];
192.62/171.21	"
192.62/171.21	"lex002 True (ch,xyv : t) = lex000 ch t (ch /= ''' : []);
192.62/171.21	lex002 xyw xyx = lex001 xyx;
192.62/171.21	"
192.62/171.21	"lex003 (ch,xyv : t) = lex002 (xyv == ''') (ch,xyv : t);
192.62/171.21	lex003 xyy = lex001 xyy;
192.62/171.21	"
192.62/171.21	The following Function with conditions
192.62/171.21	"lexEsc (c : s)|c `elem` 'a' : 'b' : 'f' : 'n' : 'r' : 't' : 'v' : '\' : '"' : ''' : [](c : [],s) : [];
192.62/171.21	lexEsc ('^' : c : s)|c >= '@' && c <= '_'('^' : c : [],s) : [];
192.62/171.21	lexEsc ('o' : s) = prefix 'o' (span isOctDigit s) : [];
192.62/171.21	lexEsc ('x' : s) = prefix 'x' (span isHexDigit s) : [];
192.62/171.21	lexEsc (vux : vuy)|isDigit vuxspan isDigit (vux : vuy) : []|isUpper vuxlexEsc2 (concatMap (lexEsc1 (vux : vuy)) table);
192.62/171.21	lexEsc vuz = [];
192.62/171.21	"
192.62/171.21	is transformed to
192.62/171.21	"lexEsc (c : s) = lexEsc16 (c : s);
192.62/171.21	lexEsc (yvu : yvx) = lexEsc14 (yvu : yvx);
192.62/171.21	lexEsc (yuv : s) = lexEsc11 (yuv : s);
192.62/171.21	lexEsc (xzw : s) = lexEsc8 (xzw : s);
192.62/171.21	lexEsc (vux : vuy) = lexEsc6 (vux : vuy);
192.62/171.21	lexEsc vuz = lexEsc3 vuz;
192.62/171.21	"
192.62/171.21	"lexEsc3 vuz = [];
192.62/171.21	"
192.62/171.21	"lexEsc4 vux vuy True = lexEsc2 (concatMap (lexEsc1 (vux : vuy)) table);
192.62/171.21	lexEsc4 vux vuy False = lexEsc3 (vux : vuy);
192.62/171.21	"
192.62/171.21	"lexEsc5 vux vuy True = span isDigit (vux : vuy) : [];
192.62/171.21	lexEsc5 vux vuy False = lexEsc4 vux vuy (isUpper vux);
192.62/171.21	"
192.62/171.21	"lexEsc6 (vux : vuy) = lexEsc5 vux vuy (isDigit vux);
192.62/171.21	lexEsc6 xzu = lexEsc3 xzu;
192.62/171.21	"
192.62/171.21	"lexEsc7 True (xzw : s) = prefix 'x' (span isHexDigit s) : [];
192.62/171.21	lexEsc7 xzx xzy = lexEsc6 xzy;
192.62/171.21	"
192.62/171.21	"lexEsc8 (xzw : s) = lexEsc7 (xzw == 'x') (xzw : s);
192.62/171.21	lexEsc8 xzz = lexEsc6 xzz;
192.62/171.21	"
192.62/171.21	"lexEsc9 True (yuv : s) = prefix 'o' (span isOctDigit s) : [];
192.62/171.21	lexEsc9 yuw yux = lexEsc8 yux;
192.62/171.21	"
192.62/171.21	"lexEsc11 (yuv : s) = lexEsc9 (yuv == 'o') (yuv : s);
192.62/171.21	lexEsc11 yuy = lexEsc8 yuy;
192.62/171.21	"
192.62/171.21	"lexEsc12 yvu c s True = ('^' : c : [],s) : [];
192.62/171.21	lexEsc12 yvu c s False = lexEsc11 (yvu : c : s);
192.62/171.21	"
192.62/171.21	"lexEsc13 True (yvu : c : s) = lexEsc12 yvu c s (c >= '@' && c <= '_');
192.62/171.21	lexEsc13 yvy yvz = lexEsc11 yvz;
192.62/171.21	"
192.62/171.21	"lexEsc14 (yvu : yvx) = lexEsc13 (yvu == '^') (yvu : yvx);
192.62/171.21	lexEsc14 ywu = lexEsc11 ywu;
192.62/171.21	"
192.62/171.21	"lexEsc15 c s True = (c : [],s) : [];
192.62/171.21	lexEsc15 c s False = lexEsc14 (c : s);
192.62/171.21	"
192.62/171.21	"lexEsc16 (c : s) = lexEsc15 c s (c `elem` 'a' : 'b' : 'f' : 'n' : 'r' : 't' : 'v' : '\' : '"' : ''' : []);
192.62/171.21	lexEsc16 yww = lexEsc14 yww;
192.62/171.21	"
192.62/171.21	The following Function with conditions
192.62/171.21	"lexLitChar [] = [];
192.62/171.21	lexLitChar (c : s)|c /= '\'(c : [],s) : []|otherwisemap (prefix '\') (lexEsc s) where {
192.62/171.21	lexEsc (c : s)|c `elem` 'a' : 'b' : 'f' : 'n' : 'r' : 't' : 'v' : '\' : '"' : ''' : [](c : [],s) : [];
192.62/171.21	lexEsc ('^' : c : s)|c >= '@' && c <= '_'('^' : c : [],s) : [];
192.62/171.21	lexEsc ('o' : s) = prefix 'o' (span isOctDigit s) : [];
192.62/171.21	lexEsc ('x' : s) = prefix 'x' (span isHexDigit s) : [];
192.62/171.21	lexEsc (vux : vuy)|isDigit vuxspan isDigit (vux : vuy) : []|isUpper vuxlexEsc2 (concatMap (lexEsc1 (vux : vuy)) table);
192.62/171.21	lexEsc vuz = [];
192.62/171.21	;
192.62/171.21	lexEsc0 mne vu69 = lexEsc00 mne vu69;
192.62/171.21	;
192.62/171.21	lexEsc00 mne ([],s') = (mne,s') : [];
192.62/171.21	lexEsc00 mne vvv = [];
192.62/171.21	;
192.62/171.21	lexEsc1 s vu70 = lexEsc10 s vu70;
192.62/171.21	;
192.62/171.21	lexEsc10 s (c,mne) = concatMap (lexEsc0 mne) (lexmatch mne s : []);
192.62/171.21	lexEsc10 s vvw = [];
192.62/171.21	;
192.62/171.21	lexEsc2 (pr : vvu) = pr : [];
192.62/171.21	lexEsc2 [] = [];
192.62/171.21	;
192.62/171.21	prefix c (t,s) = (c : t,s);
192.62/171.21	;
192.62/171.21	table  = ('\127','D' : 'E' : 'L' : []) : asciiTab;
192.62/171.21	} 
192.62/171.21	;
192.62/171.21	"
192.62/171.21	is transformed to
192.62/171.21	"lexLitChar [] = lexLitChar3 [];
192.62/171.21	lexLitChar (c : s) = lexLitChar2 (c : s);
192.62/171.21	"
192.62/171.21	"lexLitChar2 (c : s) = lexLitChar1 c s (c /= '\') where {
192.62/171.21	lexEsc (c : s) = lexEsc16 (c : s);
192.62/171.21	lexEsc (yvu : yvx) = lexEsc14 (yvu : yvx);
192.62/171.21	lexEsc (yuv : s) = lexEsc11 (yuv : s);
192.62/171.21	lexEsc (xzw : s) = lexEsc8 (xzw : s);
192.62/171.21	lexEsc (vux : vuy) = lexEsc6 (vux : vuy);
192.62/171.21	lexEsc vuz = lexEsc3 vuz;
192.62/171.21	;
192.62/171.21	lexEsc0 mne vu69 = lexEsc00 mne vu69;
192.62/171.21	;
192.62/171.21	lexEsc00 mne ([],s') = (mne,s') : [];
192.62/171.21	lexEsc00 mne vvv = [];
192.62/171.21	;
192.62/171.21	lexEsc1 s vu70 = lexEsc10 s vu70;
192.62/171.21	;
192.62/171.21	lexEsc10 s (c,mne) = concatMap (lexEsc0 mne) (lexmatch mne s : []);
192.62/171.21	lexEsc10 s vvw = [];
192.62/171.21	;
192.62/171.21	lexEsc11 (yuv : s) = lexEsc9 (yuv == 'o') (yuv : s);
192.62/171.21	lexEsc11 yuy = lexEsc8 yuy;
192.62/171.21	;
192.62/171.21	lexEsc12 yvu c s True = ('^' : c : [],s) : [];
192.62/171.21	lexEsc12 yvu c s False = lexEsc11 (yvu : c : s);
192.62/171.21	;
192.62/171.21	lexEsc13 True (yvu : c : s) = lexEsc12 yvu c s (c >= '@' && c <= '_');
192.62/171.21	lexEsc13 yvy yvz = lexEsc11 yvz;
192.62/171.21	;
192.62/171.21	lexEsc14 (yvu : yvx) = lexEsc13 (yvu == '^') (yvu : yvx);
192.62/171.21	lexEsc14 ywu = lexEsc11 ywu;
192.62/171.21	;
192.62/171.21	lexEsc15 c s True = (c : [],s) : [];
192.62/171.21	lexEsc15 c s False = lexEsc14 (c : s);
192.62/171.21	;
192.62/171.21	lexEsc16 (c : s) = lexEsc15 c s (c `elem` 'a' : 'b' : 'f' : 'n' : 'r' : 't' : 'v' : '\' : '"' : ''' : []);
192.62/171.21	lexEsc16 yww = lexEsc14 yww;
192.62/171.21	;
192.62/171.21	lexEsc2 (pr : vvu) = pr : [];
192.62/171.21	lexEsc2 [] = [];
192.62/171.21	;
192.62/171.21	lexEsc3 vuz = [];
192.62/171.21	;
192.62/171.21	lexEsc4 vux vuy True = lexEsc2 (concatMap (lexEsc1 (vux : vuy)) table);
192.62/171.21	lexEsc4 vux vuy False = lexEsc3 (vux : vuy);
192.62/171.21	;
192.62/171.21	lexEsc5 vux vuy True = span isDigit (vux : vuy) : [];
192.62/171.21	lexEsc5 vux vuy False = lexEsc4 vux vuy (isUpper vux);
192.62/171.21	;
192.62/171.21	lexEsc6 (vux : vuy) = lexEsc5 vux vuy (isDigit vux);
192.62/171.21	lexEsc6 xzu = lexEsc3 xzu;
192.62/171.21	;
192.62/171.21	lexEsc7 True (xzw : s) = prefix 'x' (span isHexDigit s) : [];
192.62/171.21	lexEsc7 xzx xzy = lexEsc6 xzy;
192.62/171.21	;
192.62/171.21	lexEsc8 (xzw : s) = lexEsc7 (xzw == 'x') (xzw : s);
192.62/171.21	lexEsc8 xzz = lexEsc6 xzz;
192.62/171.21	;
192.62/171.21	lexEsc9 True (yuv : s) = prefix 'o' (span isOctDigit s) : [];
192.62/171.21	lexEsc9 yuw yux = lexEsc8 yux;
192.62/171.21	;
192.62/171.21	lexLitChar0 c s True = map (prefix '\') (lexEsc s);
192.62/171.21	;
192.62/171.21	lexLitChar1 c s True = (c : [],s) : [];
192.62/171.21	lexLitChar1 c s False = lexLitChar0 c s otherwise;
192.62/171.21	;
192.62/171.21	prefix c (t,s) = (c : t,s);
192.62/171.21	;
192.62/171.21	table  = ('\127','D' : 'E' : 'L' : []) : asciiTab;
192.62/171.21	} 
192.62/171.21	;
192.62/171.21	"
192.62/171.21	"lexLitChar3 [] = [];
192.62/171.21	lexLitChar3 ywz = lexLitChar2 ywz;
192.62/171.21	"
192.62/171.21	The following Function with conditions
192.62/171.21	"span p [] = ([],[]);
192.62/171.21	span p (vvx : vvy)|p vvx(vvx : ys,zs)|otherwise([],vvx : vvy) where {
192.62/171.21	vu43  = span p vvy;
192.62/171.21	;
192.62/171.21	ys  = ys0 vu43;
192.62/171.21	;
192.62/171.21	ys0 (ys,vwu) = ys;
192.62/171.21	;
192.62/171.21	zs  = zs0 vu43;
192.62/171.21	;
192.62/171.21	zs0 (vvz,zs) = zs;
192.62/171.21	} 
192.62/171.21	;
192.62/171.21	"
192.62/171.21	is transformed to
192.62/171.21	"span p [] = span3 p [];
192.62/171.21	span p (vvx : vvy) = span2 p (vvx : vvy);
192.62/171.21	"
192.62/171.21	"span2 p (vvx : vvy) = span1 p vvx vvy (p vvx) where {
192.62/171.21	span0 p vvx vvy True = ([],vvx : vvy);
192.62/171.21	;
192.62/171.21	span1 p vvx vvy True = (vvx : ys,zs);
192.62/171.21	span1 p vvx vvy False = span0 p vvx vvy otherwise;
192.62/171.21	;
192.62/171.21	vu43  = span p vvy;
192.62/171.21	;
192.62/171.21	ys  = ys0 vu43;
192.62/171.21	;
192.62/171.21	ys0 (ys,vwu) = ys;
192.62/171.21	;
192.62/171.21	zs  = zs0 vu43;
192.62/171.21	;
192.62/171.21	zs0 (vvz,zs) = zs;
192.62/171.21	} 
192.62/171.21	;
192.62/171.21	"
192.62/171.21	"span3 p [] = ([],[]);
192.62/171.21	span3 yxw yxx = span2 yxw yxx;
192.62/171.21	"
192.62/171.21	
192.62/171.21	----------------------------------------
192.62/171.21	
192.62/171.21	(10)
192.62/171.21	Obligation:
192.62/171.21	mainModule Main 
192.62/171.21	module Main where {
192.62/171.21	import qualified Prelude;
192.62/171.21	}
192.62/171.21	
192.62/171.21	----------------------------------------
192.62/171.21	
192.62/171.21	(11) LetRed (EQUIVALENT)
192.62/171.21	Let/Where Reductions:
192.62/171.21	The bindings of the following Let/Where expression
192.62/171.21	"concatMap lex1 (lexString s) where {
192.62/171.21	lex1 vu55 = lex10 vu55;
192.62/171.21	;
192.62/171.21	lex10 (str,t) = ('"' : str,t) : [];
192.62/171.21	lex10 xu = [];
192.62/171.21	;
192.62/171.21	lexStrItem (vzv : vzz) = lexStrItem7 (vzv : vzz);
192.62/171.21	lexStrItem (vxz : vyw) = lexStrItem4 (vxz : vyw);
192.62/171.21	lexStrItem s = lexStrItem1 s;
192.62/171.21	;
192.62/171.21	lexStrItem0 vu58 = lexStrItem00 vu58;
192.62/171.21	;
192.62/171.21	lexStrItem00 (wvu : t) = lexStrItem002 (wvu : t);
192.62/171.21	lexStrItem00 wz = lexStrItem000 wz;
192.62/171.21	;
192.62/171.21	lexStrItem000 wz = [];
192.62/171.21	;
192.62/171.21	lexStrItem001 True (wvu : t) = ([],t) : [];
192.62/171.21	lexStrItem001 wvv wvw = lexStrItem000 wvw;
192.62/171.21	;
192.62/171.21	lexStrItem002 (wvu : t) = lexStrItem001 (wvu == '\') (wvu : t);
192.62/171.21	lexStrItem002 wvx = lexStrItem000 wvx;
192.62/171.21	;
192.62/171.21	lexStrItem1 s = lexLitChar s;
192.62/171.21	;
192.62/171.21	lexStrItem2 vxz c s True = concatMap lexStrItem0 (dropWhile isSpace s : []);
192.62/171.21	lexStrItem2 vxz c s False = lexStrItem1 (vxz : c : s);
192.62/171.21	;
192.62/171.21	lexStrItem3 True (vxz : c : s) = lexStrItem2 vxz c s (isSpace c);
192.62/171.21	lexStrItem3 vyx vyy = lexStrItem1 vyy;
192.62/171.21	;
192.62/171.21	lexStrItem4 (vxz : vyw) = lexStrItem3 (vxz == '\') (vxz : vyw);
192.62/171.21	lexStrItem4 vyz = lexStrItem1 vyz;
192.62/171.21	;
192.62/171.21	lexStrItem5 True (vzv : vzx : s) = ('\' : '&' : [],s) : [];
192.62/171.21	lexStrItem5 wuu wuv = lexStrItem4 wuv;
192.62/171.21	;
192.62/171.21	lexStrItem6 True (vzv : vzx : s) = lexStrItem5 (vzx == '&') (vzv : vzx : s);
192.62/171.21	lexStrItem6 wuw wux = lexStrItem4 wux;
192.62/171.21	;
192.62/171.21	lexStrItem7 (vzv : vzz) = lexStrItem6 (vzv == '\') (vzv : vzz);
192.62/171.21	lexStrItem7 wuy = lexStrItem4 wuy;
192.62/171.21	;
192.62/171.21	lexString (vxu : s) = lexString4 (vxu : s);
192.62/171.21	lexString s = lexString2 s;
192.62/171.21	;
192.62/171.21	lexString0 ch vu56 = lexString00 ch vu56;
192.62/171.21	;
192.62/171.21	lexString00 ch (str,u) = (ch ++ str,u) : [];
192.62/171.21	lexString00 ch wx = [];
192.62/171.21	;
192.62/171.21	lexString1 vu57 = lexString10 vu57;
192.62/171.21	;
192.62/171.21	lexString10 (ch,t) = concatMap (lexString0 ch) (lexString t);
192.62/171.21	lexString10 wy = [];
192.62/171.21	;
192.62/171.21	lexString2 s = concatMap lexString1 (lexStrItem s);
192.62/171.21	;
192.62/171.21	lexString3 True (vxu : s) = ('"' : [],s) : [];
192.62/171.21	lexString3 vxv vxw = lexString2 vxw;
192.62/171.21	;
192.62/171.21	lexString4 (vxu : s) = lexString3 (vxu == '"') (vxu : s);
192.62/171.21	lexString4 vxx = lexString2 vxx;
192.62/171.21	} 
192.62/171.21	"
192.62/171.21	are unpacked to the following functions on top level
192.62/171.21	"lex13LexStrItem6 True (vzv : vzx : s) = lex13LexStrItem5 (vzx == '&') (vzv : vzx : s);
192.62/171.25	lex13LexStrItem6 wuw wux = lex13LexStrItem4 wux;
192.62/171.25	"
192.62/171.25	"lex13LexString1 vu57 = lex13LexString10 vu57;
192.62/171.25	"
192.62/171.25	"lex13LexStrItem002 (wvu : t) = lex13LexStrItem001 (wvu == '\') (wvu : t);
192.62/171.25	lex13LexStrItem002 wvx = lex13LexStrItem000 wvx;
192.62/171.25	"
192.62/171.25	"lex13LexString0 ch vu56 = lex13LexString00 ch vu56;
192.62/171.25	"
192.62/171.25	"lex13LexStrItem001 True (wvu : t) = ([],t) : [];
192.62/171.25	lex13LexStrItem001 wvv wvw = lex13LexStrItem000 wvw;
192.62/171.25	"
192.62/171.25	"lex13Lex1 vu55 = lex13Lex10 vu55;
192.62/171.25	"
192.62/171.25	"lex13LexString (vxu : s) = lex13LexString4 (vxu : s);
192.62/171.25	lex13LexString s = lex13LexString2 s;
192.62/171.25	"
192.62/171.25	"lex13LexStrItem (vzv : vzz) = lex13LexStrItem7 (vzv : vzz);
192.62/171.25	lex13LexStrItem (vxz : vyw) = lex13LexStrItem4 (vxz : vyw);
192.62/171.25	lex13LexStrItem s = lex13LexStrItem1 s;
192.62/171.25	"
192.62/171.25	"lex13LexStrItem5 True (vzv : vzx : s) = ('\' : '&' : [],s) : [];
192.62/171.25	lex13LexStrItem5 wuu wuv = lex13LexStrItem4 wuv;
192.62/171.25	"
192.62/171.25	"lex13LexStrItem000 wz = [];
192.62/171.25	"
192.62/171.25	"lex13LexStrItem0 vu58 = lex13LexStrItem00 vu58;
192.62/171.25	"
192.62/171.25	"lex13LexString4 (vxu : s) = lex13LexString3 (vxu == '"') (vxu : s);
192.62/171.25	lex13LexString4 vxx = lex13LexString2 vxx;
192.62/171.25	"
192.62/171.25	"lex13LexStrItem1 s = lexLitChar s;
192.62/171.25	"
192.62/171.25	"lex13LexStrItem2 vxz c s True = concatMap lex13LexStrItem0 (dropWhile isSpace s : []);
192.62/171.25	lex13LexStrItem2 vxz c s False = lex13LexStrItem1 (vxz : c : s);
192.62/171.25	"
192.62/171.25	"lex13LexStrItem3 True (vxz : c : s) = lex13LexStrItem2 vxz c s (isSpace c);
192.62/171.25	lex13LexStrItem3 vyx vyy = lex13LexStrItem1 vyy;
192.62/171.25	"
192.62/171.25	"lex13LexString3 True (vxu : s) = ('"' : [],s) : [];
192.62/171.25	lex13LexString3 vxv vxw = lex13LexString2 vxw;
192.62/171.25	"
192.62/171.25	"lex13LexString00 ch (str,u) = (ch ++ str,u) : [];
192.62/171.25	lex13LexString00 ch wx = [];
192.62/171.25	"
192.62/171.25	"lex13LexString2 s = concatMap lex13LexString1 (lex13LexStrItem s);
192.62/171.25	"
192.62/171.25	"lex13LexString10 (ch,t) = concatMap (lex13LexString0 ch) (lex13LexString t);
192.62/171.25	lex13LexString10 wy = [];
192.62/171.25	"
192.62/171.25	"lex13Lex10 (str,t) = ('"' : str,t) : [];
192.62/171.25	lex13Lex10 xu = [];
192.62/171.25	"
192.62/171.25	"lex13LexStrItem4 (vxz : vyw) = lex13LexStrItem3 (vxz == '\') (vxz : vyw);
192.62/171.25	lex13LexStrItem4 vyz = lex13LexStrItem1 vyz;
192.62/171.25	"
192.62/171.25	"lex13LexStrItem7 (vzv : vzz) = lex13LexStrItem6 (vzv == '\') (vzv : vzz);
192.62/171.25	lex13LexStrItem7 wuy = lex13LexStrItem4 wuy;
192.62/171.25	"
192.62/171.25	"lex13LexStrItem00 (wvu : t) = lex13LexStrItem002 (wvu : t);
192.62/171.25	lex13LexStrItem00 wz = lex13LexStrItem000 wz;
192.62/171.25	"
192.62/171.25	The bindings of the following Let/Where expression
192.62/171.25	"span1 p vvx vvy (p vvx) where {
192.62/171.25	span0 p vvx vvy True = ([],vvx : vvy);
192.62/171.25	;
192.62/171.25	span1 p vvx vvy True = (vvx : ys,zs);
192.62/171.25	span1 p vvx vvy False = span0 p vvx vvy otherwise;
192.62/171.25	;
192.62/171.25	vu43  = span p vvy;
192.62/171.25	;
192.62/171.25	ys  = ys0 vu43;
192.62/171.25	;
192.62/171.25	ys0 (ys,vwu) = ys;
192.62/171.25	;
192.62/171.25	zs  = zs0 vu43;
192.62/171.25	;
192.62/171.25	zs0 (vvz,zs) = zs;
192.62/171.25	} 
192.62/171.25	"
192.62/171.25	are unpacked to the following functions on top level
192.62/171.25	"span2Vu43 yxy yxz = span yxy yxz;
192.62/171.25	"
192.62/171.25	"span2Zs yxy yxz = span2Zs0 yxy yxz (span2Vu43 yxy yxz);
192.62/171.25	"
192.62/171.25	"span2Ys yxy yxz = span2Ys0 yxy yxz (span2Vu43 yxy yxz);
192.62/171.25	"
192.62/171.25	"span2Ys0 yxy yxz (ys,vwu) = ys;
192.62/171.25	"
192.62/171.25	"span2Span1 yxy yxz p vvx vvy True = (vvx : span2Ys yxy yxz,span2Zs yxy yxz);
192.62/171.25	span2Span1 yxy yxz p vvx vvy False = span2Span0 yxy yxz p vvx vvy otherwise;
192.62/171.25	"
192.62/171.25	"span2Span0 yxy yxz p vvx vvy True = ([],vvx : vvy);
192.62/171.25	"
192.62/171.25	"span2Zs0 yxy yxz (vvz,zs) = zs;
192.62/171.25	"
192.62/171.25	The bindings of the following Let/Where expression
192.62/171.25	"lex11 c s (isSingle c) where {
192.62/171.25	isIdChar c = isAlphaNum c || c `elem` '_' : ''' : [];
192.62/171.25	;
192.62/171.25	isSingle c = c `elem` ',' : ';' : '(' : ')' : '[' : ']' : '{' : '}' : '_' : '`' : [];
192.62/171.25	;
192.62/171.25	isSym c = c `elem` '!' : '@' : '#' : '$' : '%' : '&' : '*' : '+' : '.' : '/' : '<' : '=' : '>' : '?' : '\' : '^' : '|' : ':' : '-' : '~' : [];
192.62/171.25	;
192.62/171.25	lex11 c s True = (c : [],s) : [];
192.62/171.25	lex11 c s False = lex9 c s (isSym c);
192.62/171.25	;
192.62/171.25	lex2 c vu59 = lex20 c vu59;
192.62/171.25	;
192.62/171.25	lex20 c (sym,t) = (c : sym,t) : [];
192.62/171.25	lex20 c yw = [];
192.62/171.25	;
192.62/171.25	lex3 c vu60 = lex30 c vu60;
192.62/171.25	;
192.62/171.25	lex30 c (nam,t) = (c : nam,t) : [];
192.62/171.25	lex30 c yx = [];
192.62/171.25	;
192.62/171.25	lex4 c ds vu61 = lex40 c ds vu61;
192.62/171.25	;
192.62/171.25	lex40 c ds (fe,t) = (c : ds ++ fe,t) : [];
192.62/171.25	lex40 c ds yu = [];
192.62/171.25	;
192.62/171.25	lex5 c vu62 = lex50 c vu62;
192.62/171.25	;
192.62/171.25	lex50 c (ds,s) = concatMap (lex4 c ds) (lexFracExp s);
192.62/171.25	lex50 c yv = [];
192.62/171.25	;
192.62/171.25	lex6 c s True = [];
192.62/171.25	;
192.62/171.25	lex7 c s True = concatMap (lex5 c) (span isDigit s : []);
192.62/171.25	lex7 c s False = lex6 c s otherwise;
192.62/171.25	;
192.62/171.25	lex8 c s True = concatMap (lex3 c) (span isIdChar s : []);
192.62/171.25	lex8 c s False = lex7 c s (isDigit c);
192.62/171.25	;
192.62/171.25	lex9 c s True = concatMap (lex2 c) (span isSym s : []);
192.62/171.25	lex9 c s False = lex8 c s (isAlpha c);
192.62/171.25	;
192.62/171.25	lexExp (e : s) = lexExp5 (e : s);
192.62/171.25	lexExp s = lexExp3 s;
192.62/171.25	;
192.62/171.25	lexExp0 e c vu65 = lexExp00 e c vu65;
192.62/171.25	;
192.62/171.25	lexExp00 e c (ds,u) = (e : c : ds,u) : [];
192.62/171.25	lexExp00 e c xv = [];
192.62/171.25	;
192.62/171.25	lexExp1 e vu66 = lexExp10 e vu66;
192.62/171.25	;
192.62/171.25	lexExp10 e (c : t) = lexExp100 e c t (c `elem` '+' : '-' : []);
192.62/171.25	lexExp10 e xx = [];
192.62/171.25	;
192.62/171.25	lexExp100 e c t True = concatMap (lexExp0 e c) (lexDigits t);
192.62/171.25	lexExp100 e c t False = [];
192.62/171.25	;
192.62/171.25	lexExp2 e vu67 = lexExp20 e vu67;
192.62/171.25	;
192.62/171.25	lexExp20 e (ds,t) = (e : ds,t) : [];
192.62/171.25	lexExp20 e xw = [];
192.62/171.25	;
192.62/171.25	lexExp3 s = ([],s) : [];
192.62/171.25	;
192.62/171.25	lexExp4 e s True = concatMap (lexExp1 e) (s : []) ++ concatMap (lexExp2 e) (lexDigits s);
192.62/171.25	lexExp4 e s False = lexExp3 (e : s);
192.62/171.25	;
192.62/171.25	lexExp5 (e : s) = lexExp4 e s (e `elem` 'e' : 'E' : []);
192.62/171.25	lexExp5 wvz = lexExp3 wvz;
192.62/171.25	;
192.62/171.25	lexFracExp (wwv : wwy) = lexFracExp5 (wwv : wwy);
192.62/171.25	lexFracExp s = lexFracExp2 s;
192.62/171.25	;
192.62/171.25	lexFracExp0 ds vu63 = lexFracExp00 ds vu63;
192.62/171.25	;
192.62/171.25	lexFracExp00 ds (e,u) = ('.' : ds ++ e,u) : [];
192.62/171.25	lexFracExp00 ds xz = [];
192.62/171.25	;
192.62/171.25	lexFracExp1 vu64 = lexFracExp10 vu64;
192.62/171.25	;
192.62/171.25	lexFracExp10 (ds,t) = concatMap (lexFracExp0 ds) (lexExp t);
192.62/171.25	lexFracExp10 xy = [];
192.62/171.25	;
192.62/171.25	lexFracExp2 s = lexExp s;
192.62/171.25	;
192.62/171.25	lexFracExp3 wwv c cs True = concatMap lexFracExp1 (lexDigits (c : cs));
192.62/171.25	lexFracExp3 wwv c cs False = lexFracExp2 (wwv : c : cs);
192.62/171.25	;
192.62/171.25	lexFracExp4 True (wwv : c : cs) = lexFracExp3 wwv c cs (isDigit c);
192.62/171.25	lexFracExp4 wwz wxu = lexFracExp2 wxu;
192.62/171.25	;
192.62/171.25	lexFracExp5 (wwv : wwy) = lexFracExp4 (wwv == '.') (wwv : wwy);
192.62/171.25	lexFracExp5 wxv = lexFracExp2 wxv;
192.62/171.25	} 
192.62/171.25	"
192.62/171.25	are unpacked to the following functions on top level
192.62/171.25	"lex12LexFracExp0 ds vu63 = lex12LexFracExp00 ds vu63;
192.62/171.25	"
192.62/171.25	"lex12LexExp3 s = ([],s) : [];
192.62/171.25	"
192.62/171.25	"lex12LexFracExp3 wwv c cs True = concatMap lex12LexFracExp1 (lexDigits (c : cs));
192.62/171.25	lex12LexFracExp3 wwv c cs False = lex12LexFracExp2 (wwv : c : cs);
192.62/171.25	"
192.62/171.25	"lex12LexExp10 e (c : t) = lex12LexExp100 e c t (c `elem` '+' : '-' : []);
192.62/171.25	lex12LexExp10 e xx = [];
192.62/171.25	"
192.62/171.25	"lex12Lex6 c s True = [];
192.62/171.25	"
192.62/171.25	"lex12Lex50 c (ds,s) = concatMap (lex12Lex4 c ds) (lex12LexFracExp s);
192.62/171.25	lex12Lex50 c yv = [];
192.62/171.25	"
192.62/171.25	"lex12LexExp0 e c vu65 = lex12LexExp00 e c vu65;
192.62/171.25	"
192.62/171.25	"lex12LexExp20 e (ds,t) = (e : ds,t) : [];
192.62/171.25	lex12LexExp20 e xw = [];
192.62/171.25	"
192.62/171.25	"lex12IsIdChar c = isAlphaNum c || c `elem` '_' : ''' : [];
192.62/171.25	"
192.62/171.25	"lex12IsSingle c = c `elem` ',' : ';' : '(' : ')' : '[' : ']' : '{' : '}' : '_' : '`' : [];
192.62/171.25	"
192.62/171.25	"lex12LexFracExp4 True (wwv : c : cs) = lex12LexFracExp3 wwv c cs (isDigit c);
192.62/171.25	lex12LexFracExp4 wwz wxu = lex12LexFracExp2 wxu;
192.62/171.25	"
192.62/171.25	"lex12LexExp100 e c t True = concatMap (lex12LexExp0 e c) (lexDigits t);
192.62/171.25	lex12LexExp100 e c t False = [];
192.62/171.25	"
192.62/171.25	"lex12IsSym c = c `elem` '!' : '@' : '#' : '$' : '%' : '&' : '*' : '+' : '.' : '/' : '<' : '=' : '>' : '?' : '\' : '^' : '|' : ':' : '-' : '~' : [];
192.62/171.25	"
192.62/171.25	"lex12LexExp5 (e : s) = lex12LexExp4 e s (e `elem` 'e' : 'E' : []);
192.62/171.25	lex12LexExp5 wvz = lex12LexExp3 wvz;
192.62/171.25	"
192.62/171.25	"lex12Lex7 c s True = concatMap (lex12Lex5 c) (span isDigit s : []);
192.62/171.25	lex12Lex7 c s False = lex12Lex6 c s otherwise;
192.62/171.25	"
192.62/171.25	"lex12Lex4 c ds vu61 = lex12Lex40 c ds vu61;
192.62/171.25	"
192.62/171.25	"lex12Lex2 c vu59 = lex12Lex20 c vu59;
192.62/171.25	"
192.62/171.25	"lex12LexFracExp5 (wwv : wwy) = lex12LexFracExp4 (wwv == '.') (wwv : wwy);
192.62/171.25	lex12LexFracExp5 wxv = lex12LexFracExp2 wxv;
192.62/171.25	"
192.62/171.25	"lex12LexExp4 e s True = concatMap (lex12LexExp1 e) (s : []) ++ concatMap (lex12LexExp2 e) (lexDigits s);
192.62/171.25	lex12LexExp4 e s False = lex12LexExp3 (e : s);
192.62/171.25	"
192.62/171.25	"lex12Lex30 c (nam,t) = (c : nam,t) : [];
192.62/171.25	lex12Lex30 c yx = [];
192.62/171.25	"
192.62/171.25	"lex12Lex9 c s True = concatMap (lex12Lex2 c) (span lex12IsSym s : []);
192.62/171.25	lex12Lex9 c s False = lex12Lex8 c s (isAlpha c);
192.62/171.25	"
192.62/171.25	"lex12LexFracExp10 (ds,t) = concatMap (lex12LexFracExp0 ds) (lex12LexExp t);
192.62/171.25	lex12LexFracExp10 xy = [];
192.62/171.25	"
192.62/171.25	"lex12Lex20 c (sym,t) = (c : sym,t) : [];
192.62/171.25	lex12Lex20 c yw = [];
192.62/171.25	"
192.62/171.25	"lex12LexExp (e : s) = lex12LexExp5 (e : s);
192.62/171.25	lex12LexExp s = lex12LexExp3 s;
192.62/171.25	"
192.62/171.25	"lex12LexFracExp (wwv : wwy) = lex12LexFracExp5 (wwv : wwy);
192.62/171.25	lex12LexFracExp s = lex12LexFracExp2 s;
192.62/171.25	"
192.62/171.25	"lex12Lex40 c ds (fe,t) = (c : ds ++ fe,t) : [];
192.62/171.25	lex12Lex40 c ds yu = [];
192.62/171.25	"
192.62/171.25	"lex12LexFracExp00 ds (e,u) = ('.' : ds ++ e,u) : [];
192.62/171.25	lex12LexFracExp00 ds xz = [];
192.62/171.25	"
192.62/171.25	"lex12LexExp1 e vu66 = lex12LexExp10 e vu66;
192.62/171.25	"
192.62/171.25	"lex12Lex5 c vu62 = lex12Lex50 c vu62;
192.62/171.25	"
192.62/171.25	"lex12LexFracExp2 s = lex12LexExp s;
192.62/171.25	"
192.62/171.25	"lex12LexExp00 e c (ds,u) = (e : c : ds,u) : [];
192.62/171.25	lex12LexExp00 e c xv = [];
192.62/171.25	"
192.62/171.25	"lex12Lex3 c vu60 = lex12Lex30 c vu60;
192.62/171.28	"
192.62/171.28	"lex12LexExp2 e vu67 = lex12LexExp20 e vu67;
192.62/171.28	"
192.62/171.28	"lex12Lex8 c s True = concatMap (lex12Lex3 c) (span lex12IsIdChar s : []);
192.62/171.28	lex12Lex8 c s False = lex12Lex7 c s (isDigit c);
192.62/171.28	"
192.62/171.28	"lex12Lex11 c s True = (c : [],s) : [];
192.62/171.28	lex12Lex11 c s False = lex12Lex9 c s (lex12IsSym c);
192.62/171.28	"
192.62/171.28	"lex12LexFracExp1 vu64 = lex12LexFracExp10 vu64;
192.62/171.28	"
192.62/171.28	The bindings of the following Let/Where expression
192.62/171.28	"lexLitChar1 c s (c /= '\') where {
192.62/171.28	lexEsc (c : s) = lexEsc16 (c : s);
192.62/171.28	lexEsc (yvu : yvx) = lexEsc14 (yvu : yvx);
192.62/171.28	lexEsc (yuv : s) = lexEsc11 (yuv : s);
192.62/171.28	lexEsc (xzw : s) = lexEsc8 (xzw : s);
192.62/171.28	lexEsc (vux : vuy) = lexEsc6 (vux : vuy);
192.62/171.28	lexEsc vuz = lexEsc3 vuz;
192.62/171.28	;
192.62/171.28	lexEsc0 mne vu69 = lexEsc00 mne vu69;
192.62/171.28	;
192.62/171.28	lexEsc00 mne ([],s') = (mne,s') : [];
192.62/171.28	lexEsc00 mne vvv = [];
192.62/171.28	;
192.62/171.28	lexEsc1 s vu70 = lexEsc10 s vu70;
192.62/171.28	;
192.62/171.28	lexEsc10 s (c,mne) = concatMap (lexEsc0 mne) (lexmatch mne s : []);
192.62/171.28	lexEsc10 s vvw = [];
192.62/171.28	;
192.62/171.28	lexEsc11 (yuv : s) = lexEsc9 (yuv == 'o') (yuv : s);
192.62/171.28	lexEsc11 yuy = lexEsc8 yuy;
192.62/171.28	;
192.62/171.28	lexEsc12 yvu c s True = ('^' : c : [],s) : [];
192.62/171.28	lexEsc12 yvu c s False = lexEsc11 (yvu : c : s);
192.62/171.28	;
192.62/171.28	lexEsc13 True (yvu : c : s) = lexEsc12 yvu c s (c >= '@' && c <= '_');
192.62/171.28	lexEsc13 yvy yvz = lexEsc11 yvz;
192.62/171.28	;
192.62/171.28	lexEsc14 (yvu : yvx) = lexEsc13 (yvu == '^') (yvu : yvx);
192.62/171.28	lexEsc14 ywu = lexEsc11 ywu;
192.62/171.28	;
192.62/171.28	lexEsc15 c s True = (c : [],s) : [];
192.62/171.28	lexEsc15 c s False = lexEsc14 (c : s);
192.62/171.28	;
192.62/171.28	lexEsc16 (c : s) = lexEsc15 c s (c `elem` 'a' : 'b' : 'f' : 'n' : 'r' : 't' : 'v' : '\' : '"' : ''' : []);
192.62/171.28	lexEsc16 yww = lexEsc14 yww;
192.62/171.28	;
192.62/171.28	lexEsc2 (pr : vvu) = pr : [];
192.62/171.28	lexEsc2 [] = [];
192.62/171.28	;
192.62/171.28	lexEsc3 vuz = [];
192.62/171.28	;
192.62/171.28	lexEsc4 vux vuy True = lexEsc2 (concatMap (lexEsc1 (vux : vuy)) table);
192.62/171.28	lexEsc4 vux vuy False = lexEsc3 (vux : vuy);
192.62/171.28	;
192.62/171.28	lexEsc5 vux vuy True = span isDigit (vux : vuy) : [];
192.62/171.28	lexEsc5 vux vuy False = lexEsc4 vux vuy (isUpper vux);
192.62/171.28	;
192.62/171.28	lexEsc6 (vux : vuy) = lexEsc5 vux vuy (isDigit vux);
192.62/171.28	lexEsc6 xzu = lexEsc3 xzu;
192.62/171.28	;
192.62/171.28	lexEsc7 True (xzw : s) = prefix 'x' (span isHexDigit s) : [];
192.62/171.28	lexEsc7 xzx xzy = lexEsc6 xzy;
192.62/171.28	;
192.62/171.28	lexEsc8 (xzw : s) = lexEsc7 (xzw == 'x') (xzw : s);
192.62/171.28	lexEsc8 xzz = lexEsc6 xzz;
192.62/171.28	;
192.62/171.28	lexEsc9 True (yuv : s) = prefix 'o' (span isOctDigit s) : [];
192.62/171.28	lexEsc9 yuw yux = lexEsc8 yux;
192.62/171.28	;
192.62/171.28	lexLitChar0 c s True = map (prefix '\') (lexEsc s);
192.62/171.28	;
192.62/171.28	lexLitChar1 c s True = (c : [],s) : [];
192.62/171.28	lexLitChar1 c s False = lexLitChar0 c s otherwise;
192.62/171.28	;
192.62/171.28	prefix c (t,s) = (c : t,s);
192.62/171.28	;
192.62/171.28	table  = ('\127','D' : 'E' : 'L' : []) : asciiTab;
192.62/171.28	} 
192.62/171.28	"
192.62/171.28	are unpacked to the following functions on top level
192.62/171.28	"lexLitChar2LexEsc0 mne vu69 = lexLitChar2LexEsc00 mne vu69;
192.62/171.28	"
192.62/171.28	"lexLitChar2LexLitChar1 c s True = (c : [],s) : [];
192.62/171.28	lexLitChar2LexLitChar1 c s False = lexLitChar2LexLitChar0 c s otherwise;
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc4 vux vuy True = lexLitChar2LexEsc2 (concatMap (lexLitChar2LexEsc1 (vux : vuy)) lexLitChar2Table);
192.62/171.28	lexLitChar2LexEsc4 vux vuy False = lexLitChar2LexEsc3 (vux : vuy);
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc (c : s) = lexLitChar2LexEsc16 (c : s);
192.62/171.28	lexLitChar2LexEsc (yvu : yvx) = lexLitChar2LexEsc14 (yvu : yvx);
192.62/171.28	lexLitChar2LexEsc (yuv : s) = lexLitChar2LexEsc11 (yuv : s);
192.62/171.28	lexLitChar2LexEsc (xzw : s) = lexLitChar2LexEsc8 (xzw : s);
192.62/171.28	lexLitChar2LexEsc (vux : vuy) = lexLitChar2LexEsc6 (vux : vuy);
192.62/171.28	lexLitChar2LexEsc vuz = lexLitChar2LexEsc3 vuz;
192.62/171.28	"
192.62/171.28	"lexLitChar2LexLitChar0 c s True = map (lexLitChar2Prefix '\') (lexLitChar2LexEsc s);
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc15 c s True = (c : [],s) : [];
192.62/171.28	lexLitChar2LexEsc15 c s False = lexLitChar2LexEsc14 (c : s);
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc00 mne ([],s') = (mne,s') : [];
192.62/171.28	lexLitChar2LexEsc00 mne vvv = [];
192.62/171.28	"
192.62/171.28	"lexLitChar2Table  = ('\127','D' : 'E' : 'L' : []) : asciiTab;
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc3 vuz = [];
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc12 yvu c s True = ('^' : c : [],s) : [];
192.62/171.28	lexLitChar2LexEsc12 yvu c s False = lexLitChar2LexEsc11 (yvu : c : s);
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc7 True (xzw : s) = lexLitChar2Prefix 'x' (span isHexDigit s) : [];
192.62/171.28	lexLitChar2LexEsc7 xzx xzy = lexLitChar2LexEsc6 xzy;
192.62/171.28	"
192.62/171.28	"lexLitChar2Prefix c (t,s) = (c : t,s);
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc9 True (yuv : s) = lexLitChar2Prefix 'o' (span isOctDigit s) : [];
192.62/171.28	lexLitChar2LexEsc9 yuw yux = lexLitChar2LexEsc8 yux;
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc1 s vu70 = lexLitChar2LexEsc10 s vu70;
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc11 (yuv : s) = lexLitChar2LexEsc9 (yuv == 'o') (yuv : s);
192.62/171.28	lexLitChar2LexEsc11 yuy = lexLitChar2LexEsc8 yuy;
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc13 True (yvu : c : s) = lexLitChar2LexEsc12 yvu c s (c >= '@' && c <= '_');
192.62/171.28	lexLitChar2LexEsc13 yvy yvz = lexLitChar2LexEsc11 yvz;
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc10 s (c,mne) = concatMap (lexLitChar2LexEsc0 mne) (lexmatch mne s : []);
192.62/171.28	lexLitChar2LexEsc10 s vvw = [];
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc8 (xzw : s) = lexLitChar2LexEsc7 (xzw == 'x') (xzw : s);
192.62/171.28	lexLitChar2LexEsc8 xzz = lexLitChar2LexEsc6 xzz;
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc16 (c : s) = lexLitChar2LexEsc15 c s (c `elem` 'a' : 'b' : 'f' : 'n' : 'r' : 't' : 'v' : '\' : '"' : ''' : []);
192.62/171.28	lexLitChar2LexEsc16 yww = lexLitChar2LexEsc14 yww;
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc14 (yvu : yvx) = lexLitChar2LexEsc13 (yvu == '^') (yvu : yvx);
192.62/171.28	lexLitChar2LexEsc14 ywu = lexLitChar2LexEsc11 ywu;
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc6 (vux : vuy) = lexLitChar2LexEsc5 vux vuy (isDigit vux);
192.62/171.28	lexLitChar2LexEsc6 xzu = lexLitChar2LexEsc3 xzu;
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc5 vux vuy True = span isDigit (vux : vuy) : [];
192.62/171.28	lexLitChar2LexEsc5 vux vuy False = lexLitChar2LexEsc4 vux vuy (isUpper vux);
192.62/171.28	"
192.62/171.28	"lexLitChar2LexEsc2 (pr : vvu) = pr : [];
192.62/171.28	lexLitChar2LexEsc2 [] = [];
192.62/171.28	"
192.62/171.28	The bindings of the following Let/Where expression
192.62/171.28	"readParen0 b where {
192.62/171.28	mandatory r = concatMap mandatory2 (lex r);
192.62/171.28	;
192.62/171.28	mandatory0 x vu48 = mandatory00 x vu48;
192.62/171.28	;
192.62/171.28	mandatory00 x (xwu : xwv,u) = mandatory002 x (xwu : xwv,u);
192.62/171.28	mandatory00 x zx = mandatory000 x zx;
192.62/171.28	;
192.62/171.28	mandatory000 x zx = [];
192.62/171.28	;
192.62/171.28	mandatory001 True x (xwu : [],u) = (x,u) : [];
192.62/171.28	mandatory001 xww xwx xwy = mandatory000 xwx xwy;
192.62/171.28	;
192.62/171.28	mandatory002 x (xwu : xwv,u) = mandatory001 (xwu == ')') x (xwu : xwv,u);
192.62/171.28	mandatory002 xwz xxu = mandatory000 xwz xxu;
192.62/171.28	;
192.62/171.28	mandatory1 vu49 = mandatory10 vu49;
192.62/171.28	;
192.62/171.28	mandatory10 (x,t) = concatMap (mandatory0 x) (lex t);
192.62/171.28	mandatory10 zy = [];
192.62/171.28	;
192.62/171.28	mandatory2 vu50 = mandatory20 vu50;
192.62/171.28	;
192.62/171.28	mandatory20 (xuz : xvu,s) = mandatory202 (xuz : xvu,s);
192.62/171.28	mandatory20 zw = mandatory200 zw;
192.62/171.28	;
192.62/171.28	mandatory200 zw = [];
192.62/171.28	;
192.62/171.28	mandatory201 True (xuz : [],s) = concatMap mandatory1 (optional s);
192.62/171.28	mandatory201 xvv xvw = mandatory200 xvw;
192.62/171.28	;
192.62/171.28	mandatory202 (xuz : xvu,s) = mandatory201 (xuz == '(') (xuz : xvu,s);
192.62/171.28	mandatory202 xvx = mandatory200 xvx;
192.62/171.28	;
192.62/171.28	optional r = g r ++ mandatory r;
192.62/171.28	;
192.62/171.28	readParen0 True = mandatory;
192.62/171.28	readParen0 False = optional;
192.62/171.28	} 
192.62/171.28	"
192.62/171.28	are unpacked to the following functions on top level
192.62/171.28	"readParenReadParen0 yyu True = readParenMandatory yyu;
192.62/171.28	readParenReadParen0 yyu False = readParenOptional yyu;
192.62/171.28	"
192.62/171.28	"readParenMandatory00 yyu x (xwu : xwv,u) = readParenMandatory002 yyu x (xwu : xwv,u);
192.62/171.28	readParenMandatory00 yyu x zx = readParenMandatory000 yyu x zx;
192.62/171.28	"
192.62/171.28	"readParenMandatory1 yyu vu49 = readParenMandatory10 yyu vu49;
192.62/171.28	"
192.62/171.28	"readParenMandatory10 yyu (x,t) = concatMap (readParenMandatory0 yyu x) (lex t);
192.62/171.28	readParenMandatory10 yyu zy = [];
192.62/171.28	"
192.62/171.28	"readParenMandatory002 yyu x (xwu : xwv,u) = readParenMandatory001 yyu (xwu == ')') x (xwu : xwv,u);
192.62/171.28	readParenMandatory002 yyu xwz xxu = readParenMandatory000 yyu xwz xxu;
192.62/171.28	"
192.62/171.28	"readParenMandatory201 yyu True (xuz : [],s) = concatMap (readParenMandatory1 yyu) (readParenOptional yyu s);
192.62/171.28	readParenMandatory201 yyu xvv xvw = readParenMandatory200 yyu xvw;
192.62/171.28	"
192.62/171.28	"readParenMandatory20 yyu (xuz : xvu,s) = readParenMandatory202 yyu (xuz : xvu,s);
192.62/171.28	readParenMandatory20 yyu zw = readParenMandatory200 yyu zw;
192.62/171.28	"
192.62/171.28	"readParenMandatory202 yyu (xuz : xvu,s) = readParenMandatory201 yyu (xuz == '(') (xuz : xvu,s);
192.62/171.28	readParenMandatory202 yyu xvx = readParenMandatory200 yyu xvx;
192.62/171.28	"
192.62/171.28	"readParenOptional yyu r = yyu r ++ readParenMandatory yyu r;
192.62/171.28	"
192.62/171.28	"readParenMandatory2 yyu vu50 = readParenMandatory20 yyu vu50;
192.62/171.28	"
192.62/171.28	"readParenMandatory yyu r = concatMap (readParenMandatory2 yyu) (lex r);
192.62/171.28	"
192.62/171.28	"readParenMandatory200 yyu zw = [];
192.62/171.28	"
192.62/171.28	"readParenMandatory000 yyu x zx = [];
192.62/171.28	"
192.62/171.28	"readParenMandatory001 yyu True x (xwu : [],u) = (x,u) : [];
192.62/171.28	readParenMandatory001 yyu xww xwx xwy = readParenMandatory000 yyu xwx xwy;
192.62/171.28	"
192.62/171.28	"readParenMandatory0 yyu x vu48 = readParenMandatory00 yyu x vu48;
192.62/171.28	"
192.62/171.28	
192.62/171.28	----------------------------------------
192.62/171.28	
192.62/171.28	(12)
192.62/171.28	Obligation:
192.62/171.28	mainModule Main 
192.62/171.28	module Main where {
192.62/171.28	import qualified Prelude;
192.62/171.28	}
192.62/171.28	
192.62/171.28	----------------------------------------
192.62/171.28	
192.62/171.28	(13) NumRed (SOUND)
192.62/171.28	Num Reduction:All numbers are transformed to their corresponding representation with Succ, Pred and Zero.
192.62/171.28	----------------------------------------
192.62/171.28	
192.62/171.28	(14)
192.62/171.28	Obligation:
192.62/171.28	mainModule Main 
192.62/171.28	module Main where {
192.62/171.28	import qualified Prelude;
192.62/171.28	}
192.91/171.32	EOF