graphmod 1.1.2 → 1.1.3
raw patch · 8 files changed
+6/−5586 lines, 8 filesdep +haskell-lexer
Dependencies added: haskell-lexer
Files
- graphmod.cabal +5/−5
- src/Utils.hs +1/−2
- src/lexer/HsLayoutPre.hs +0/−61
- src/lexer/HsLex.hs +0/−5366
- src/lexer/HsLexUtils.hs +0/−37
- src/lexer/HsLexerPass1.hs +0/−54
- src/lexer/HsLexerPos.hs +0/−34
- src/lexer/HsTokens.hs +0/−27
graphmod.cabal view
@@ -1,5 +1,5 @@ name: graphmod-version: 1.1.2+version: 1.1.3 license: BSD3 license-file: LICENSE author: Iavor S. Diatchki@@ -14,7 +14,7 @@ executable graphmod main-is: Main.hs- other-modules: Utils, HsLayoutPre, HsLexerPass1, HsLexerPos- other-modules: HsLex, HsLexUtils, HsTokens- build-depends: base, directory, filepath, dotgen >= 0.2 && < 0.3- hs-source-dirs: src, src/lexer+ other-modules: Utils+ build-depends: base, directory, filepath, dotgen >= 0.2 && < 0.3,+ haskell-lexer+ hs-source-dirs: src
src/Utils.hs view
@@ -9,8 +9,7 @@ , suffixes ) where -import HsLexerPass1(lexerPass1)-import HsTokens+import Language.Haskell.Lexer(lexerPass1,Token(..)) import Data.Maybe(catMaybes) import Data.List(intersperse,isPrefixOf)
− src/lexer/HsLayoutPre.hs
@@ -1,61 +0,0 @@-module HsLayoutPre(layoutPre,PosToken) where-import HsTokens-import HsLexerPos--{-+-This is-an implementation of Haskell layout, as specified in section 9.3 of the-revised Haskell 98 report.--This module contains the layout preprocessor that inserts the extra-<n> and {n} tokens.--}--type PosToken = (Token,(Pos,String))--layoutPre :: [PosToken] -> [PosToken]-layoutPre = indent . open--open = open1--{-+-If the first lexeme of a module is not { or module, then it is preceded-by {n} where n is the indentation of the lexeme.--}-open1 (t1@(Reservedid,(_,"module")):ts) = t1:open2 ts-open1 (t1@(Special,(_,"{")):ts) = t1:open2 ts-open1 ts@((t,(p,s)):_) = (Open (column p),(p,"")):open2 ts-open1 [] = []--{-+-If a let, where, do, or of keyword is not followed by the lexeme {,-the token {n} is inserted after the keyword, where n is the indentation of-the next lexeme if there is one, or 0 if the end of file has been reached.--}-open2 (t1:ts1) | isLtoken t1 =- case ts1 of- t2@(_,(p,_)):ts2 ->- if notLBrace t2- then t1:(Open (column p),(p,"")):open2 ts1- else t1:t2:open2 ts2- [] -> t1:(Open 0,(fst (snd t1),"")):[]- where- isLtoken (Reservedid,(_,s)) = s `elem` ["let","where","do","of"]- isLtoken _ = False-- notLBrace (Special,(_,"{")) = False- notLBrace _ = True-open2 (t:ts) = t:open2 ts-open2 [] = []--{-+-(This is from the original Haskell 98 report.)-The first token on each line (not including tokens already annotated) is-preceeded by <n>, where n is the indentation of the token.--}-indent (t1@(Open _,(p,_)):ts) = t1:indent2 (line p) ts-indent (t1@(t,(p,s)):ts) = (Indent (column p),(p,"")):t1:indent2 (line p) ts-indent [] = []--indent2 r (t1@(_,(p,_)):ts) | line p==r = t1:indent2 r ts-indent2 r ts = indent ts
− src/lexer/HsLex.hs
@@ -1,5366 +0,0 @@---- Automatically generated code for a DFA follows:---Equal states: [[[2,3],[8,9],[5,31],[10,11],[36,37],[39,40]]]-module HsLex (haskellLex) where-import Data.Char-import HsLexUtils--type Output = [(Token,String)]-type Input = String-type Acc = Input -- reversed-type Lexer = Input -> Output-type LexerState = (Acc->Lexer) -> Acc -> Lexer--haskellLex :: Lexer-haskellLex is = start1 is--cclass :: Char -> Int-cclass c =- case c of- '\t' -> 1- '\n' -> 2- '\v' -> 3- '\f' -> 4- '\r' -> 5- ' ' -> 6- '\160' -> 6- '!' -> 7- '#' -> 7- '$' -> 7- '%' -> 7- '*' -> 7- '/' -> 7- '?' -> 7- '\161' -> 7- '\162' -> 7- '\163' -> 7- '\164' -> 7- '\165' -> 7- '\166' -> 7- '\167' -> 7- '\168' -> 7- '\169' -> 7- '\172' -> 7- '\173' -> 7- '\174' -> 7- '\175' -> 7- '\176' -> 7- '\177' -> 7- '\180' -> 7- '\182' -> 7- '\183' -> 7- '\184' -> 7- '\191' -> 7- '\215' -> 7- '\247' -> 7- '"' -> 8- '&' -> 9- '\'' -> 10- '(' -> 11- ')' -> 11- ',' -> 11- ';' -> 11- '`' -> 11- '}' -> 11- '+' -> 12- '-' -> 13- '.' -> 14- '0' -> 15- '1' -> 16- '2' -> 16- '3' -> 16- '4' -> 16- '5' -> 17- '6' -> 17- '7' -> 17- '8' -> 18- '9' -> 18- ':' -> 19- '<' -> 20- '=' -> 21- '>' -> 22- '@' -> 23- 'A' -> 24- 'B' -> 25- 'C' -> 26- 'D' -> 27- 'E' -> 28- 'F' -> 29- 'G' -> 30- 'H' -> 31- 'I' -> 32- 'P' -> 32- 'J' -> 33- 'W' -> 33- 'Z' -> 33- 'K' -> 34- 'L' -> 35- 'M' -> 36- 'N' -> 37- 'O' -> 38- 'Q' -> 39- 'R' -> 40- 'S' -> 41- 'T' -> 42- 'U' -> 43- 'V' -> 44- 'X' -> 45- 'Y' -> 46- '[' -> 47- ']' -> 47- '\\' -> 48- '^' -> 49- '_' -> 50- 'a' -> 51- 'b' -> 52- 'c' -> 53- 'd' -> 54- 'e' -> 55- 'f' -> 56- 'g' -> 57- 'h' -> 58- 'i' -> 59- 'j' -> 60- 'k' -> 60- 'q' -> 60- 'z' -> 60- '\223' -> 60- '\224' -> 60- '\225' -> 60- '\226' -> 60- '\227' -> 60- '\228' -> 60- '\229' -> 60- '\230' -> 60- '\231' -> 60- '\232' -> 60- '\233' -> 60- '\234' -> 60- '\235' -> 60- '\236' -> 60- '\237' -> 60- '\238' -> 60- '\239' -> 60- '\240' -> 60- '\241' -> 60- '\242' -> 60- '\243' -> 60- '\244' -> 60- '\245' -> 60- '\246' -> 60- '\248' -> 60- '\249' -> 60- '\250' -> 60- '\251' -> 60- '\252' -> 60- '\253' -> 60- '\254' -> 60- '\255' -> 60- 'l' -> 61- 'm' -> 62- 'n' -> 63- 'o' -> 64- 'p' -> 65- 'r' -> 66- 's' -> 67- 't' -> 68- 'u' -> 69- 'v' -> 70- 'w' -> 71- 'x' -> 72- 'y' -> 73- '{' -> 74- '|' -> 75- '~' -> 75- '\170' -> 76- '\171' -> 76- '\178' -> 76- '\179' -> 76- '\181' -> 76- '\185' -> 76- '\186' -> 76- '\187' -> 76- '\188' -> 76- '\189' -> 76- '\190' -> 76- '\192' -> 77- '\193' -> 77- '\194' -> 77- '\195' -> 77- '\196' -> 77- '\197' -> 77- '\198' -> 77- '\199' -> 77- '\200' -> 77- '\201' -> 77- '\202' -> 77- '\203' -> 77- '\204' -> 77- '\205' -> 77- '\206' -> 77- '\207' -> 77- '\208' -> 77- '\209' -> 77- '\210' -> 77- '\211' -> 77- '\212' -> 77- '\213' -> 77- '\214' -> 77- '\216' -> 77- '\217' -> 77- '\218' -> 77- '\219' -> 77- '\220' -> 77- '\221' -> 77- '\222' -> 77- c | isAscii c -> 0- | isSpace c -> 3- | isSymbol c -> 7- | isDigit c -> 18- | isLower c -> 60- | isUpper c -> 77- | otherwise -> 0--start1 :: Lexer-start1 is = state1 (\ as is -> gotError as is) "" is-state1 :: LexerState-state1 err as [] = gotEOF as-state1 err as iis@(i:is) =- case cclass i of- 51 -> state162 err (i:as) is- 52 -> state162 err (i:as) is- 56 -> state162 err (i:as) is- 57 -> state162 err (i:as) is- 58 -> state162 err (i:as) is- 60 -> state162 err (i:as) is- 65 -> state162 err (i:as) is- 66 -> state162 err (i:as) is- 67 -> state162 err (i:as) is- 69 -> state162 err (i:as) is- 70 -> state162 err (i:as) is- 72 -> state162 err (i:as) is- 73 -> state162 err (i:as) is- 1 -> state2 err (i:as) is- 2 -> state2 err (i:as) is- 3 -> state2 err (i:as) is- 4 -> state2 err (i:as) is- 5 -> state2 err (i:as) is- 6 -> state2 err (i:as) is- 7 -> state4 err (i:as) is- 9 -> state4 err (i:as) is- 12 -> state4 err (i:as) is- 22 -> state4 err (i:as) is- 49 -> state4 err (i:as) is- 23 -> state79 err (i:as) is- 48 -> state79 err (i:as) is- 75 -> state79 err (i:as) is- 16 -> state87 err (i:as) is- 17 -> state87 err (i:as) is- 18 -> state87 err (i:as) is- 0 -> err as iis- 76 -> err as iis- 11 -> state73 err (i:as) is- 47 -> state73 err (i:as) is- 8 -> state5 err (i:as) is- 10 -> state41 err (i:as) is- 13 -> state74 err (i:as) is- 14 -> state80 err (i:as) is- 15 -> state81 err (i:as) is- 19 -> state92 err (i:as) is- 20 -> state95 err (i:as) is- 21 -> state96 err (i:as) is- 50 -> state161 err (i:as) is- 53 -> state163 err (i:as) is- 54 -> state169 err (i:as) is- 55 -> state182 err (i:as) is- 59 -> state183 err (i:as) is- 61 -> state195 err (i:as) is- 62 -> state196 err (i:as) is- 63 -> state200 err (i:as) is- 64 -> state205 err (i:as) is- 68 -> state206 err (i:as) is- 71 -> state209 err (i:as) is- 74 -> state212 err (i:as) is- _ -> state97 err (i:as) is--state2 :: LexerState-state2 err as [] = err as []- where err _ _ = output Whitespace as (start1 [])-state2 err as iis@(i:is) =- case cclass i of- 1 -> state2 err (i:as) is- 2 -> state2 err (i:as) is- 3 -> state2 err (i:as) is- 4 -> state2 err (i:as) is- 5 -> state2 err (i:as) is- 6 -> state2 err (i:as) is- _ -> err as iis- where err _ _ = output Whitespace as (start1 iis)--state4 :: LexerState-state4 err as [] = err as []- where err _ _ = output Varsym as (start1 [])-state4 err as iis@(i:is) =- case cclass i of- 7 -> state4 err (i:as) is- 9 -> state4 err (i:as) is- 12 -> state4 err (i:as) is- 13 -> state4 err (i:as) is- 14 -> state4 err (i:as) is- 19 -> state4 err (i:as) is- 20 -> state4 err (i:as) is- 21 -> state4 err (i:as) is- 22 -> state4 err (i:as) is- 23 -> state4 err (i:as) is- 48 -> state4 err (i:as) is- 49 -> state4 err (i:as) is- 75 -> state4 err (i:as) is- _ -> err as iis- where err _ _ = output Varsym as (start1 iis)--start5 :: Lexer-start5 is = state5 (\ as is -> gotError as is) "" is-state5 :: LexerState-state5 err as [] = err as []-state5 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 8 -> state6 err (i:as) is- 48 -> state7 err (i:as) is- _ -> state5 err (i:as) is--state6 :: LexerState-state6 err as is = output StringLit as (start1 is)--start7 :: Lexer-start7 is = state7 (\ as is -> gotError as is) "" is-state7 :: LexerState-state7 err as [] = err as []-state7 err as iis@(i:is) =- case cclass i of- 8 -> state5 err (i:as) is- 9 -> state5 err (i:as) is- 10 -> state5 err (i:as) is- 48 -> state5 err (i:as) is- 51 -> state5 err (i:as) is- 52 -> state5 err (i:as) is- 56 -> state5 err (i:as) is- 63 -> state5 err (i:as) is- 66 -> state5 err (i:as) is- 68 -> state5 err (i:as) is- 70 -> state5 err (i:as) is- 1 -> state8 err (i:as) is- 2 -> state8 err (i:as) is- 3 -> state8 err (i:as) is- 4 -> state8 err (i:as) is- 5 -> state8 err (i:as) is- 6 -> state8 err (i:as) is- 15 -> state10 err (i:as) is- 16 -> state10 err (i:as) is- 17 -> state10 err (i:as) is- 18 -> state10 err (i:as) is- 30 -> state27 err (i:as) is- 40 -> state27 err (i:as) is- 43 -> state27 err (i:as) is- 31 -> state23 err (i:as) is- 44 -> state23 err (i:as) is- 24 -> state12 err (i:as) is- 25 -> state14 err (i:as) is- 26 -> state16 err (i:as) is- 27 -> state18 err (i:as) is- 28 -> state21 err (i:as) is- 29 -> state26 err (i:as) is- 35 -> state28 err (i:as) is- 37 -> state29 err (i:as) is- 41 -> state30 err (i:as) is- 49 -> state34 err (i:as) is- 64 -> state35 err (i:as) is- 72 -> state38 err (i:as) is- _ -> err as iis--start8 :: Lexer-start8 is = state8 (\ as is -> gotError as is) "" is-state8 :: LexerState-state8 err as [] = err as []-state8 err as iis@(i:is) =- case cclass i of- 1 -> state8 err (i:as) is- 2 -> state8 err (i:as) is- 3 -> state8 err (i:as) is- 4 -> state8 err (i:as) is- 5 -> state8 err (i:as) is- 6 -> state8 err (i:as) is- 48 -> state5 err (i:as) is- _ -> err as iis--start10 :: Lexer-start10 is = state10 (\ as is -> gotError as is) "" is-state10 :: LexerState-state10 err as [] = err as []-state10 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 15 -> state10 err (i:as) is- 16 -> state10 err (i:as) is- 17 -> state10 err (i:as) is- 18 -> state10 err (i:as) is- 8 -> state6 err (i:as) is- 48 -> state7 err (i:as) is- _ -> state5 err (i:as) is--start12 :: Lexer-start12 is = state12 (\ as is -> gotError as is) "" is-state12 :: LexerState-state12 err as [] = err as []-state12 err as iis@(i:is) =- case cclass i of- 26 -> state13 err (i:as) is- _ -> err as iis--start13 :: Lexer-start13 is = state13 (\ as is -> gotError as is) "" is-state13 :: LexerState-state13 err as [] = err as []-state13 err as iis@(i:is) =- case cclass i of- 34 -> state5 err (i:as) is- _ -> err as iis--start14 :: Lexer-start14 is = state14 (\ as is -> gotError as is) "" is-state14 :: LexerState-state14 err as [] = err as []-state14 err as iis@(i:is) =- case cclass i of- 41 -> state5 err (i:as) is- 28 -> state15 err (i:as) is- _ -> err as iis--start15 :: Lexer-start15 is = state15 (\ as is -> gotError as is) "" is-state15 :: LexerState-state15 err as [] = err as []-state15 err as iis@(i:is) =- case cclass i of- 35 -> state5 err (i:as) is- _ -> err as iis--start16 :: Lexer-start16 is = state16 (\ as is -> gotError as is) "" is-state16 :: LexerState-state16 err as [] = err as []-state16 err as iis@(i:is) =- case cclass i of- 40 -> state5 err (i:as) is- 24 -> state17 err (i:as) is- _ -> err as iis--start17 :: Lexer-start17 is = state17 (\ as is -> gotError as is) "" is-state17 :: LexerState-state17 err as [] = err as []-state17 err as iis@(i:is) =- case cclass i of- 37 -> state5 err (i:as) is- _ -> err as iis--start18 :: Lexer-start18 is = state18 (\ as is -> gotError as is) "" is-state18 :: LexerState-state18 err as [] = err as []-state18 err as iis@(i:is) =- case cclass i of- 28 -> state15 err (i:as) is- 26 -> state19 err (i:as) is- 35 -> state20 err (i:as) is- _ -> err as iis--start19 :: Lexer-start19 is = state19 (\ as is -> gotError as is) "" is-state19 :: LexerState-state19 err as [] = err as []-state19 err as iis@(i:is) =- case cclass i of- 16 -> state5 err (i:as) is- _ -> err as iis--start20 :: Lexer-start20 is = state20 (\ as is -> gotError as is) "" is-state20 :: LexerState-state20 err as [] = err as []-state20 err as iis@(i:is) =- case cclass i of- 28 -> state5 err (i:as) is- _ -> err as iis--start21 :: Lexer-start21 is = state21 (\ as is -> gotError as is) "" is-state21 :: LexerState-state21 err as [] = err as []-state21 err as iis@(i:is) =- case cclass i of- 36 -> state5 err (i:as) is- 37 -> state22 err (i:as) is- 38 -> state23 err (i:as) is- 41 -> state24 err (i:as) is- 42 -> state25 err (i:as) is- _ -> err as iis--start22 :: Lexer-start22 is = state22 (\ as is -> gotError as is) "" is-state22 :: LexerState-state22 err as [] = err as []-state22 err as iis@(i:is) =- case cclass i of- 39 -> state5 err (i:as) is- _ -> err as iis--start23 :: Lexer-start23 is = state23 (\ as is -> gotError as is) "" is-state23 :: LexerState-state23 err as [] = err as []-state23 err as iis@(i:is) =- case cclass i of- 42 -> state5 err (i:as) is- _ -> err as iis--start24 :: Lexer-start24 is = state24 (\ as is -> gotError as is) "" is-state24 :: LexerState-state24 err as [] = err as []-state24 err as iis@(i:is) =- case cclass i of- 26 -> state5 err (i:as) is- _ -> err as iis--start25 :: Lexer-start25 is = state25 (\ as is -> gotError as is) "" is-state25 :: LexerState-state25 err as [] = err as []-state25 err as iis@(i:is) =- case cclass i of- 25 -> state5 err (i:as) is- 45 -> state5 err (i:as) is- _ -> err as iis--start26 :: Lexer-start26 is = state26 (\ as is -> gotError as is) "" is-state26 :: LexerState-state26 err as [] = err as []-state26 err as iis@(i:is) =- case cclass i of- 29 -> state5 err (i:as) is- 41 -> state5 err (i:as) is- _ -> err as iis--start27 :: Lexer-start27 is = state27 (\ as is -> gotError as is) "" is-state27 :: LexerState-state27 err as [] = err as []-state27 err as iis@(i:is) =- case cclass i of- 41 -> state5 err (i:as) is- _ -> err as iis--start28 :: Lexer-start28 is = state28 (\ as is -> gotError as is) "" is-state28 :: LexerState-state28 err as [] = err as []-state28 err as iis@(i:is) =- case cclass i of- 29 -> state5 err (i:as) is- _ -> err as iis--start29 :: Lexer-start29 is = state29 (\ as is -> gotError as is) "" is-state29 :: LexerState-state29 err as [] = err as []-state29 err as iis@(i:is) =- case cclass i of- 24 -> state13 err (i:as) is- 43 -> state15 err (i:as) is- _ -> err as iis--start30 :: Lexer-start30 is = state30 (\ as is -> gotError as is) "" is-state30 :: LexerState-state30 err as [] = err as []-state30 err as iis@(i:is) =- case cclass i of- 32 -> state5 err (i:as) is- 38 -> state5 err (i:as) is- 46 -> state17 err (i:as) is- 42 -> state32 err (i:as) is- 43 -> state33 err (i:as) is- _ -> err as iis--start32 :: Lexer-start32 is = state32 (\ as is -> gotError as is) "" is-state32 :: LexerState-state32 err as [] = err as []-state32 err as iis@(i:is) =- case cclass i of- 45 -> state5 err (i:as) is- _ -> err as iis--start33 :: Lexer-start33 is = state33 (\ as is -> gotError as is) "" is-state33 :: LexerState-state33 err as [] = err as []-state33 err as iis@(i:is) =- case cclass i of- 25 -> state5 err (i:as) is- _ -> err as iis--start34 :: Lexer-start34 is = state34 (\ as is -> gotError as is) "" is-state34 :: LexerState-state34 err as [] = err as []-state34 err as iis@(i:is) =- case cclass i of- 23 -> state5 err (i:as) is- 24 -> state5 err (i:as) is- 25 -> state5 err (i:as) is- 26 -> state5 err (i:as) is- 27 -> state5 err (i:as) is- 28 -> state5 err (i:as) is- 29 -> state5 err (i:as) is- 30 -> state5 err (i:as) is- 31 -> state5 err (i:as) is- 32 -> state5 err (i:as) is- 33 -> state5 err (i:as) is- 34 -> state5 err (i:as) is- 35 -> state5 err (i:as) is- 36 -> state5 err (i:as) is- 37 -> state5 err (i:as) is- 38 -> state5 err (i:as) is- 39 -> state5 err (i:as) is- 40 -> state5 err (i:as) is- 41 -> state5 err (i:as) is- 42 -> state5 err (i:as) is- 43 -> state5 err (i:as) is- 44 -> state5 err (i:as) is- 45 -> state5 err (i:as) is- 46 -> state5 err (i:as) is- 47 -> state5 err (i:as) is- 48 -> state5 err (i:as) is- 49 -> state5 err (i:as) is- 50 -> state5 err (i:as) is- _ -> err as iis--start35 :: Lexer-start35 is = state35 (\ as is -> gotError as is) "" is-state35 :: LexerState-state35 err as [] = err as []-state35 err as iis@(i:is) =- case cclass i of- 15 -> state36 err (i:as) is- 16 -> state36 err (i:as) is- 17 -> state36 err (i:as) is- _ -> err as iis--start36 :: Lexer-start36 is = state36 (\ as is -> gotError as is) "" is-state36 :: LexerState-state36 err as [] = err as []-state36 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 15 -> state36 err (i:as) is- 16 -> state36 err (i:as) is- 17 -> state36 err (i:as) is- 8 -> state6 err (i:as) is- 48 -> state7 err (i:as) is- _ -> state5 err (i:as) is--start38 :: Lexer-start38 is = state38 (\ as is -> gotError as is) "" is-state38 :: LexerState-state38 err as [] = err as []-state38 err as iis@(i:is) =- case cclass i of- 15 -> state39 err (i:as) is- 16 -> state39 err (i:as) is- 17 -> state39 err (i:as) is- 18 -> state39 err (i:as) is- 24 -> state39 err (i:as) is- 25 -> state39 err (i:as) is- 26 -> state39 err (i:as) is- 27 -> state39 err (i:as) is- 28 -> state39 err (i:as) is- 29 -> state39 err (i:as) is- 51 -> state39 err (i:as) is- 52 -> state39 err (i:as) is- 53 -> state39 err (i:as) is- 54 -> state39 err (i:as) is- 55 -> state39 err (i:as) is- 56 -> state39 err (i:as) is- _ -> err as iis--start39 :: Lexer-start39 is = state39 (\ as is -> gotError as is) "" is-state39 :: LexerState-state39 err as [] = err as []-state39 err as iis@(i:is) =- case cclass i of- 15 -> state39 err (i:as) is- 16 -> state39 err (i:as) is- 17 -> state39 err (i:as) is- 18 -> state39 err (i:as) is- 24 -> state39 err (i:as) is- 25 -> state39 err (i:as) is- 26 -> state39 err (i:as) is- 27 -> state39 err (i:as) is- 28 -> state39 err (i:as) is- 29 -> state39 err (i:as) is- 51 -> state39 err (i:as) is- 52 -> state39 err (i:as) is- 53 -> state39 err (i:as) is- 54 -> state39 err (i:as) is- 55 -> state39 err (i:as) is- 56 -> state39 err (i:as) is- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 8 -> state6 err (i:as) is- 48 -> state7 err (i:as) is- _ -> state5 err (i:as) is--start41 :: Lexer-start41 is = state41 (\ as is -> gotError as is) "" is-state41 :: LexerState-state41 err as [] = err as []-state41 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 10 -> err as iis- 48 -> state44 err (i:as) is- _ -> state42 err (i:as) is--start42 :: Lexer-start42 is = state42 (\ as is -> gotError as is) "" is-state42 :: LexerState-state42 err as [] = err as []-state42 err as iis@(i:is) =- case cclass i of- 10 -> state43 err (i:as) is- _ -> err as iis--state43 :: LexerState-state43 err as is = output CharLit as (start1 is)--start44 :: Lexer-start44 is = state44 (\ as is -> gotError as is) "" is-state44 :: LexerState-state44 err as [] = err as []-state44 err as iis@(i:is) =- case cclass i of- 8 -> state42 err (i:as) is- 9 -> state42 err (i:as) is- 10 -> state42 err (i:as) is- 48 -> state42 err (i:as) is- 51 -> state42 err (i:as) is- 52 -> state42 err (i:as) is- 56 -> state42 err (i:as) is- 63 -> state42 err (i:as) is- 66 -> state42 err (i:as) is- 68 -> state42 err (i:as) is- 70 -> state42 err (i:as) is- 15 -> state45 err (i:as) is- 16 -> state45 err (i:as) is- 17 -> state45 err (i:as) is- 18 -> state45 err (i:as) is- 30 -> state61 err (i:as) is- 40 -> state61 err (i:as) is- 43 -> state61 err (i:as) is- 31 -> state57 err (i:as) is- 44 -> state57 err (i:as) is- 24 -> state46 err (i:as) is- 25 -> state48 err (i:as) is- 26 -> state50 err (i:as) is- 27 -> state52 err (i:as) is- 28 -> state55 err (i:as) is- 29 -> state60 err (i:as) is- 35 -> state62 err (i:as) is- 37 -> state63 err (i:as) is- 41 -> state64 err (i:as) is- 49 -> state68 err (i:as) is- 64 -> state69 err (i:as) is- 72 -> state71 err (i:as) is- _ -> err as iis--start45 :: Lexer-start45 is = state45 (\ as is -> gotError as is) "" is-state45 :: LexerState-state45 err as [] = err as []-state45 err as iis@(i:is) =- case cclass i of- 15 -> state45 err (i:as) is- 16 -> state45 err (i:as) is- 17 -> state45 err (i:as) is- 18 -> state45 err (i:as) is- 10 -> state43 err (i:as) is- _ -> err as iis--start46 :: Lexer-start46 is = state46 (\ as is -> gotError as is) "" is-state46 :: LexerState-state46 err as [] = err as []-state46 err as iis@(i:is) =- case cclass i of- 26 -> state47 err (i:as) is- _ -> err as iis--start47 :: Lexer-start47 is = state47 (\ as is -> gotError as is) "" is-state47 :: LexerState-state47 err as [] = err as []-state47 err as iis@(i:is) =- case cclass i of- 34 -> state42 err (i:as) is- _ -> err as iis--start48 :: Lexer-start48 is = state48 (\ as is -> gotError as is) "" is-state48 :: LexerState-state48 err as [] = err as []-state48 err as iis@(i:is) =- case cclass i of- 41 -> state42 err (i:as) is- 28 -> state49 err (i:as) is- _ -> err as iis--start49 :: Lexer-start49 is = state49 (\ as is -> gotError as is) "" is-state49 :: LexerState-state49 err as [] = err as []-state49 err as iis@(i:is) =- case cclass i of- 35 -> state42 err (i:as) is- _ -> err as iis--start50 :: Lexer-start50 is = state50 (\ as is -> gotError as is) "" is-state50 :: LexerState-state50 err as [] = err as []-state50 err as iis@(i:is) =- case cclass i of- 40 -> state42 err (i:as) is- 24 -> state51 err (i:as) is- _ -> err as iis--start51 :: Lexer-start51 is = state51 (\ as is -> gotError as is) "" is-state51 :: LexerState-state51 err as [] = err as []-state51 err as iis@(i:is) =- case cclass i of- 37 -> state42 err (i:as) is- _ -> err as iis--start52 :: Lexer-start52 is = state52 (\ as is -> gotError as is) "" is-state52 :: LexerState-state52 err as [] = err as []-state52 err as iis@(i:is) =- case cclass i of- 28 -> state49 err (i:as) is- 26 -> state53 err (i:as) is- 35 -> state54 err (i:as) is- _ -> err as iis--start53 :: Lexer-start53 is = state53 (\ as is -> gotError as is) "" is-state53 :: LexerState-state53 err as [] = err as []-state53 err as iis@(i:is) =- case cclass i of- 16 -> state42 err (i:as) is- _ -> err as iis--start54 :: Lexer-start54 is = state54 (\ as is -> gotError as is) "" is-state54 :: LexerState-state54 err as [] = err as []-state54 err as iis@(i:is) =- case cclass i of- 28 -> state42 err (i:as) is- _ -> err as iis--start55 :: Lexer-start55 is = state55 (\ as is -> gotError as is) "" is-state55 :: LexerState-state55 err as [] = err as []-state55 err as iis@(i:is) =- case cclass i of- 36 -> state42 err (i:as) is- 37 -> state56 err (i:as) is- 38 -> state57 err (i:as) is- 41 -> state58 err (i:as) is- 42 -> state59 err (i:as) is- _ -> err as iis--start56 :: Lexer-start56 is = state56 (\ as is -> gotError as is) "" is-state56 :: LexerState-state56 err as [] = err as []-state56 err as iis@(i:is) =- case cclass i of- 39 -> state42 err (i:as) is- _ -> err as iis--start57 :: Lexer-start57 is = state57 (\ as is -> gotError as is) "" is-state57 :: LexerState-state57 err as [] = err as []-state57 err as iis@(i:is) =- case cclass i of- 42 -> state42 err (i:as) is- _ -> err as iis--start58 :: Lexer-start58 is = state58 (\ as is -> gotError as is) "" is-state58 :: LexerState-state58 err as [] = err as []-state58 err as iis@(i:is) =- case cclass i of- 26 -> state42 err (i:as) is- _ -> err as iis--start59 :: Lexer-start59 is = state59 (\ as is -> gotError as is) "" is-state59 :: LexerState-state59 err as [] = err as []-state59 err as iis@(i:is) =- case cclass i of- 25 -> state42 err (i:as) is- 45 -> state42 err (i:as) is- _ -> err as iis--start60 :: Lexer-start60 is = state60 (\ as is -> gotError as is) "" is-state60 :: LexerState-state60 err as [] = err as []-state60 err as iis@(i:is) =- case cclass i of- 29 -> state42 err (i:as) is- 41 -> state42 err (i:as) is- _ -> err as iis--start61 :: Lexer-start61 is = state61 (\ as is -> gotError as is) "" is-state61 :: LexerState-state61 err as [] = err as []-state61 err as iis@(i:is) =- case cclass i of- 41 -> state42 err (i:as) is- _ -> err as iis--start62 :: Lexer-start62 is = state62 (\ as is -> gotError as is) "" is-state62 :: LexerState-state62 err as [] = err as []-state62 err as iis@(i:is) =- case cclass i of- 29 -> state42 err (i:as) is- _ -> err as iis--start63 :: Lexer-start63 is = state63 (\ as is -> gotError as is) "" is-state63 :: LexerState-state63 err as [] = err as []-state63 err as iis@(i:is) =- case cclass i of- 24 -> state47 err (i:as) is- 43 -> state49 err (i:as) is- _ -> err as iis--start64 :: Lexer-start64 is = state64 (\ as is -> gotError as is) "" is-state64 :: LexerState-state64 err as [] = err as []-state64 err as iis@(i:is) =- case cclass i of- 32 -> state42 err (i:as) is- 46 -> state51 err (i:as) is- 38 -> state65 err (i:as) is- 42 -> state66 err (i:as) is- 43 -> state67 err (i:as) is- _ -> err as iis--start65 :: Lexer-start65 is = state65 (\ as is -> gotError as is) "" is-state65 :: LexerState-state65 err as [] = err as []-state65 err as iis@(i:is) =- case cclass i of- 31 -> state42 err (i:as) is- 10 -> state43 err (i:as) is- _ -> err as iis--start66 :: Lexer-start66 is = state66 (\ as is -> gotError as is) "" is-state66 :: LexerState-state66 err as [] = err as []-state66 err as iis@(i:is) =- case cclass i of- 45 -> state42 err (i:as) is- _ -> err as iis--start67 :: Lexer-start67 is = state67 (\ as is -> gotError as is) "" is-state67 :: LexerState-state67 err as [] = err as []-state67 err as iis@(i:is) =- case cclass i of- 25 -> state42 err (i:as) is- _ -> err as iis--start68 :: Lexer-start68 is = state68 (\ as is -> gotError as is) "" is-state68 :: LexerState-state68 err as [] = err as []-state68 err as iis@(i:is) =- case cclass i of- 23 -> state42 err (i:as) is- 24 -> state42 err (i:as) is- 25 -> state42 err (i:as) is- 26 -> state42 err (i:as) is- 27 -> state42 err (i:as) is- 28 -> state42 err (i:as) is- 29 -> state42 err (i:as) is- 30 -> state42 err (i:as) is- 31 -> state42 err (i:as) is- 32 -> state42 err (i:as) is- 33 -> state42 err (i:as) is- 34 -> state42 err (i:as) is- 35 -> state42 err (i:as) is- 36 -> state42 err (i:as) is- 37 -> state42 err (i:as) is- 38 -> state42 err (i:as) is- 39 -> state42 err (i:as) is- 40 -> state42 err (i:as) is- 41 -> state42 err (i:as) is- 42 -> state42 err (i:as) is- 43 -> state42 err (i:as) is- 44 -> state42 err (i:as) is- 45 -> state42 err (i:as) is- 46 -> state42 err (i:as) is- 47 -> state42 err (i:as) is- 48 -> state42 err (i:as) is- 49 -> state42 err (i:as) is- 50 -> state42 err (i:as) is- _ -> err as iis--start69 :: Lexer-start69 is = state69 (\ as is -> gotError as is) "" is-state69 :: LexerState-state69 err as [] = err as []-state69 err as iis@(i:is) =- case cclass i of- 15 -> state70 err (i:as) is- 16 -> state70 err (i:as) is- 17 -> state70 err (i:as) is- _ -> err as iis--start70 :: Lexer-start70 is = state70 (\ as is -> gotError as is) "" is-state70 :: LexerState-state70 err as [] = err as []-state70 err as iis@(i:is) =- case cclass i of- 15 -> state70 err (i:as) is- 16 -> state70 err (i:as) is- 17 -> state70 err (i:as) is- 10 -> state43 err (i:as) is- _ -> err as iis--start71 :: Lexer-start71 is = state71 (\ as is -> gotError as is) "" is-state71 :: LexerState-state71 err as [] = err as []-state71 err as iis@(i:is) =- case cclass i of- 15 -> state72 err (i:as) is- 16 -> state72 err (i:as) is- 17 -> state72 err (i:as) is- 18 -> state72 err (i:as) is- 24 -> state72 err (i:as) is- 25 -> state72 err (i:as) is- 26 -> state72 err (i:as) is- 27 -> state72 err (i:as) is- 28 -> state72 err (i:as) is- 29 -> state72 err (i:as) is- 51 -> state72 err (i:as) is- 52 -> state72 err (i:as) is- 53 -> state72 err (i:as) is- 54 -> state72 err (i:as) is- 55 -> state72 err (i:as) is- 56 -> state72 err (i:as) is- _ -> err as iis--start72 :: Lexer-start72 is = state72 (\ as is -> gotError as is) "" is-state72 :: LexerState-state72 err as [] = err as []-state72 err as iis@(i:is) =- case cclass i of- 15 -> state72 err (i:as) is- 16 -> state72 err (i:as) is- 17 -> state72 err (i:as) is- 18 -> state72 err (i:as) is- 24 -> state72 err (i:as) is- 25 -> state72 err (i:as) is- 26 -> state72 err (i:as) is- 27 -> state72 err (i:as) is- 28 -> state72 err (i:as) is- 29 -> state72 err (i:as) is- 51 -> state72 err (i:as) is- 52 -> state72 err (i:as) is- 53 -> state72 err (i:as) is- 54 -> state72 err (i:as) is- 55 -> state72 err (i:as) is- 56 -> state72 err (i:as) is- 10 -> state43 err (i:as) is- _ -> err as iis--state73 :: LexerState-state73 err as is = output Special as (start1 is)--state74 :: LexerState-state74 err as [] = err as []- where err _ _ = output Varsym as (start1 [])-state74 err as iis@(i:is) =- case cclass i of- 7 -> state4 err (i:as) is- 9 -> state4 err (i:as) is- 12 -> state4 err (i:as) is- 14 -> state4 err (i:as) is- 19 -> state4 err (i:as) is- 20 -> state4 err (i:as) is- 21 -> state4 err (i:as) is- 23 -> state4 err (i:as) is- 48 -> state4 err (i:as) is- 49 -> state4 err (i:as) is- 75 -> state4 err (i:as) is- 13 -> state75 err (i:as) is- 22 -> state79 err (i:as) is- _ -> err as iis- where err _ _ = output Varsym as (start1 iis)--state75 :: LexerState-state75 err as [] = err as []- where err _ _ = output Commentstart as (start76 [])-state75 err as iis@(i:is) =- case cclass i of- 7 -> state4 err (i:as) is- 9 -> state4 err (i:as) is- 12 -> state4 err (i:as) is- 14 -> state4 err (i:as) is- 19 -> state4 err (i:as) is- 20 -> state4 err (i:as) is- 21 -> state4 err (i:as) is- 22 -> state4 err (i:as) is- 23 -> state4 err (i:as) is- 48 -> state4 err (i:as) is- 49 -> state4 err (i:as) is- 75 -> state4 err (i:as) is- 13 -> state75 err (i:as) is- _ -> err as iis- where err _ _ = output Commentstart as (start76 iis)--start76 :: Lexer-start76 is = state76 (\ as is -> gotError as is) "" is-state76 :: LexerState-state76 err as [] = err as []-state76 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 3 -> err as iis- 2 -> state77 err (i:as) is- 4 -> state77 err (i:as) is- 5 -> state78 err (i:as) is- _ -> state76 err (i:as) is--state77 :: LexerState-state77 err as is = output Comment as (start1 is)--state78 :: LexerState-state78 err as [] = err as []- where err _ _ = output Comment as (start1 [])-state78 err as iis@(i:is) =- case cclass i of- 2 -> state77 err (i:as) is- _ -> err as iis- where err _ _ = output Comment as (start1 iis)--state79 :: LexerState-state79 err as [] = err as []- where err _ _ = output Reservedop as (start1 [])-state79 err as iis@(i:is) =- case cclass i of- 7 -> state4 err (i:as) is- 9 -> state4 err (i:as) is- 12 -> state4 err (i:as) is- 13 -> state4 err (i:as) is- 14 -> state4 err (i:as) is- 19 -> state4 err (i:as) is- 20 -> state4 err (i:as) is- 21 -> state4 err (i:as) is- 22 -> state4 err (i:as) is- 23 -> state4 err (i:as) is- 48 -> state4 err (i:as) is- 49 -> state4 err (i:as) is- 75 -> state4 err (i:as) is- _ -> err as iis- where err _ _ = output Reservedop as (start1 iis)--state80 :: LexerState-state80 err as [] = err as []- where err _ _ = output Varsym as (start1 [])-state80 err as iis@(i:is) =- case cclass i of- 7 -> state4 err (i:as) is- 9 -> state4 err (i:as) is- 12 -> state4 err (i:as) is- 13 -> state4 err (i:as) is- 19 -> state4 err (i:as) is- 20 -> state4 err (i:as) is- 21 -> state4 err (i:as) is- 22 -> state4 err (i:as) is- 23 -> state4 err (i:as) is- 48 -> state4 err (i:as) is- 49 -> state4 err (i:as) is- 75 -> state4 err (i:as) is- 14 -> state79 err (i:as) is- _ -> err as iis- where err _ _ = output Varsym as (start1 iis)--state81 :: LexerState-state81 err as [] = err as []- where err _ _ = output IntLit as (start1 [])-state81 err as iis@(i:is) =- case cclass i of- 15 -> state87 err (i:as) is- 16 -> state87 err (i:as) is- 17 -> state87 err (i:as) is- 18 -> state87 err (i:as) is- 38 -> state88 err (i:as) is- 64 -> state88 err (i:as) is- 45 -> state90 err (i:as) is- 72 -> state90 err (i:as) is- 14 -> state82 err (i:as) is- _ -> err as iis- where err _ _ = output IntLit as (start1 iis)--start82 :: Lexer-start82 is = state82 (\ as is -> gotError as is) "" is-state82 :: LexerState-state82 err as [] = err as []-state82 err as iis@(i:is) =- case cclass i of- 15 -> state83 err (i:as) is- 16 -> state83 err (i:as) is- 17 -> state83 err (i:as) is- 18 -> state83 err (i:as) is- _ -> err as iis--state83 :: LexerState-state83 err as [] = err as []- where err _ _ = output FloatLit as (start1 [])-state83 err as iis@(i:is) =- case cclass i of- 15 -> state83 err (i:as) is- 16 -> state83 err (i:as) is- 17 -> state83 err (i:as) is- 18 -> state83 err (i:as) is- 28 -> state84 err (i:as) is- 55 -> state84 err (i:as) is- _ -> err as iis- where err _ _ = output FloatLit as (start1 iis)--start84 :: Lexer-start84 is = state84 (\ as is -> gotError as is) "" is-state84 :: LexerState-state84 err as [] = err as []-state84 err as iis@(i:is) =- case cclass i of- 15 -> state86 err (i:as) is- 16 -> state86 err (i:as) is- 17 -> state86 err (i:as) is- 18 -> state86 err (i:as) is- 12 -> state85 err (i:as) is- 13 -> state85 err (i:as) is- _ -> err as iis--start85 :: Lexer-start85 is = state85 (\ as is -> gotError as is) "" is-state85 :: LexerState-state85 err as [] = err as []-state85 err as iis@(i:is) =- case cclass i of- 15 -> state86 err (i:as) is- 16 -> state86 err (i:as) is- 17 -> state86 err (i:as) is- 18 -> state86 err (i:as) is- _ -> err as iis--state86 :: LexerState-state86 err as [] = err as []- where err _ _ = output FloatLit as (start1 [])-state86 err as iis@(i:is) =- case cclass i of- 15 -> state86 err (i:as) is- 16 -> state86 err (i:as) is- 17 -> state86 err (i:as) is- 18 -> state86 err (i:as) is- _ -> err as iis- where err _ _ = output FloatLit as (start1 iis)--state87 :: LexerState-state87 err as [] = err as []- where err _ _ = output IntLit as (start1 [])-state87 err as iis@(i:is) =- case cclass i of- 15 -> state87 err (i:as) is- 16 -> state87 err (i:as) is- 17 -> state87 err (i:as) is- 18 -> state87 err (i:as) is- 14 -> state82 err (i:as) is- _ -> err as iis- where err _ _ = output IntLit as (start1 iis)--start88 :: Lexer-start88 is = state88 (\ as is -> gotError as is) "" is-state88 :: LexerState-state88 err as [] = err as []-state88 err as iis@(i:is) =- case cclass i of- 15 -> state89 err (i:as) is- 16 -> state89 err (i:as) is- 17 -> state89 err (i:as) is- _ -> err as iis--state89 :: LexerState-state89 err as [] = err as []- where err _ _ = output IntLit as (start1 [])-state89 err as iis@(i:is) =- case cclass i of- 15 -> state89 err (i:as) is- 16 -> state89 err (i:as) is- 17 -> state89 err (i:as) is- _ -> err as iis- where err _ _ = output IntLit as (start1 iis)--start90 :: Lexer-start90 is = state90 (\ as is -> gotError as is) "" is-state90 :: LexerState-state90 err as [] = err as []-state90 err as iis@(i:is) =- case cclass i of- 15 -> state91 err (i:as) is- 16 -> state91 err (i:as) is- 17 -> state91 err (i:as) is- 18 -> state91 err (i:as) is- 24 -> state91 err (i:as) is- 25 -> state91 err (i:as) is- 26 -> state91 err (i:as) is- 27 -> state91 err (i:as) is- 28 -> state91 err (i:as) is- 29 -> state91 err (i:as) is- 51 -> state91 err (i:as) is- 52 -> state91 err (i:as) is- 53 -> state91 err (i:as) is- 54 -> state91 err (i:as) is- 55 -> state91 err (i:as) is- 56 -> state91 err (i:as) is- _ -> err as iis--state91 :: LexerState-state91 err as [] = err as []- where err _ _ = output IntLit as (start1 [])-state91 err as iis@(i:is) =- case cclass i of- 15 -> state91 err (i:as) is- 16 -> state91 err (i:as) is- 17 -> state91 err (i:as) is- 18 -> state91 err (i:as) is- 24 -> state91 err (i:as) is- 25 -> state91 err (i:as) is- 26 -> state91 err (i:as) is- 27 -> state91 err (i:as) is- 28 -> state91 err (i:as) is- 29 -> state91 err (i:as) is- 51 -> state91 err (i:as) is- 52 -> state91 err (i:as) is- 53 -> state91 err (i:as) is- 54 -> state91 err (i:as) is- 55 -> state91 err (i:as) is- 56 -> state91 err (i:as) is- _ -> err as iis- where err _ _ = output IntLit as (start1 iis)--state92 :: LexerState-state92 err as [] = err as []- where err _ _ = output Reservedop as (start1 [])-state92 err as iis@(i:is) =- case cclass i of- 7 -> state93 err (i:as) is- 9 -> state93 err (i:as) is- 12 -> state93 err (i:as) is- 13 -> state93 err (i:as) is- 14 -> state93 err (i:as) is- 20 -> state93 err (i:as) is- 21 -> state93 err (i:as) is- 22 -> state93 err (i:as) is- 23 -> state93 err (i:as) is- 48 -> state93 err (i:as) is- 49 -> state93 err (i:as) is- 75 -> state93 err (i:as) is- 19 -> state94 err (i:as) is- _ -> err as iis- where err _ _ = output Reservedop as (start1 iis)--state93 :: LexerState-state93 err as [] = err as []- where err _ _ = output Consym as (start1 [])-state93 err as iis@(i:is) =- case cclass i of- 7 -> state93 err (i:as) is- 9 -> state93 err (i:as) is- 12 -> state93 err (i:as) is- 13 -> state93 err (i:as) is- 14 -> state93 err (i:as) is- 19 -> state93 err (i:as) is- 20 -> state93 err (i:as) is- 21 -> state93 err (i:as) is- 22 -> state93 err (i:as) is- 23 -> state93 err (i:as) is- 48 -> state93 err (i:as) is- 49 -> state93 err (i:as) is- 75 -> state93 err (i:as) is- _ -> err as iis- where err _ _ = output Consym as (start1 iis)--state94 :: LexerState-state94 err as [] = err as []- where err _ _ = output Reservedop as (start1 [])-state94 err as iis@(i:is) =- case cclass i of- 7 -> state93 err (i:as) is- 9 -> state93 err (i:as) is- 12 -> state93 err (i:as) is- 13 -> state93 err (i:as) is- 14 -> state93 err (i:as) is- 19 -> state93 err (i:as) is- 20 -> state93 err (i:as) is- 21 -> state93 err (i:as) is- 22 -> state93 err (i:as) is- 23 -> state93 err (i:as) is- 48 -> state93 err (i:as) is- 49 -> state93 err (i:as) is- 75 -> state93 err (i:as) is- _ -> err as iis- where err _ _ = output Reservedop as (start1 iis)--state95 :: LexerState-state95 err as [] = err as []- where err _ _ = output Varsym as (start1 [])-state95 err as iis@(i:is) =- case cclass i of- 7 -> state4 err (i:as) is- 9 -> state4 err (i:as) is- 12 -> state4 err (i:as) is- 14 -> state4 err (i:as) is- 19 -> state4 err (i:as) is- 20 -> state4 err (i:as) is- 21 -> state4 err (i:as) is- 22 -> state4 err (i:as) is- 23 -> state4 err (i:as) is- 48 -> state4 err (i:as) is- 49 -> state4 err (i:as) is- 75 -> state4 err (i:as) is- 13 -> state79 err (i:as) is- _ -> err as iis- where err _ _ = output Varsym as (start1 iis)--state96 :: LexerState-state96 err as [] = err as []- where err _ _ = output Reservedop as (start1 [])-state96 err as iis@(i:is) =- case cclass i of- 7 -> state4 err (i:as) is- 9 -> state4 err (i:as) is- 12 -> state4 err (i:as) is- 13 -> state4 err (i:as) is- 14 -> state4 err (i:as) is- 19 -> state4 err (i:as) is- 20 -> state4 err (i:as) is- 21 -> state4 err (i:as) is- 23 -> state4 err (i:as) is- 48 -> state4 err (i:as) is- 49 -> state4 err (i:as) is- 75 -> state4 err (i:as) is- 22 -> state79 err (i:as) is- _ -> err as iis- where err _ _ = output Reservedop as (start1 iis)--state97 :: LexerState-state97 err as [] = err as []- where err _ _ = output Conid as (start1 [])-state97 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 14 -> state98 err (i:as) is- _ -> state97 err (i:as) is- where err _ _ = output Conid as (start1 iis)--start98 :: Lexer-start98 is = state98 (\ as is -> gotError as is) "" is-state98 :: LexerState-state98 err as [] = err as []-state98 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 8 -> err as iis- 10 -> err as iis- 11 -> err as iis- 15 -> err as iis- 16 -> err as iis- 17 -> err as iis- 18 -> err as iis- 47 -> err as iis- 74 -> err as iis- 76 -> err as iis- 51 -> state111 err (i:as) is- 52 -> state111 err (i:as) is- 56 -> state111 err (i:as) is- 57 -> state111 err (i:as) is- 58 -> state111 err (i:as) is- 60 -> state111 err (i:as) is- 65 -> state111 err (i:as) is- 66 -> state111 err (i:as) is- 67 -> state111 err (i:as) is- 69 -> state111 err (i:as) is- 70 -> state111 err (i:as) is- 72 -> state111 err (i:as) is- 73 -> state111 err (i:as) is- 7 -> state99 err (i:as) is- 9 -> state99 err (i:as) is- 12 -> state99 err (i:as) is- 22 -> state99 err (i:as) is- 49 -> state99 err (i:as) is- 23 -> state102 err (i:as) is- 48 -> state102 err (i:as) is- 75 -> state102 err (i:as) is- 13 -> state100 err (i:as) is- 14 -> state103 err (i:as) is- 19 -> state104 err (i:as) is- 20 -> state107 err (i:as) is- 21 -> state108 err (i:as) is- 50 -> state110 err (i:as) is- 53 -> state112 err (i:as) is- 54 -> state118 err (i:as) is- 55 -> state131 err (i:as) is- 59 -> state132 err (i:as) is- 61 -> state144 err (i:as) is- 62 -> state145 err (i:as) is- 63 -> state149 err (i:as) is- 64 -> state154 err (i:as) is- 68 -> state155 err (i:as) is- 71 -> state158 err (i:as) is- _ -> state109 err (i:as) is--state99 :: LexerState-state99 err as [] = err as []- where err _ _ = output Qvarsym as (start1 [])-state99 err as iis@(i:is) =- case cclass i of- 7 -> state99 err (i:as) is- 9 -> state99 err (i:as) is- 12 -> state99 err (i:as) is- 13 -> state99 err (i:as) is- 14 -> state99 err (i:as) is- 19 -> state99 err (i:as) is- 20 -> state99 err (i:as) is- 21 -> state99 err (i:as) is- 22 -> state99 err (i:as) is- 23 -> state99 err (i:as) is- 48 -> state99 err (i:as) is- 49 -> state99 err (i:as) is- 75 -> state99 err (i:as) is- _ -> err as iis- where err _ _ = output Qvarsym as (start1 iis)--state100 :: LexerState-state100 err as [] = err as []- where err _ _ = output Qvarsym as (start1 [])-state100 err as iis@(i:is) =- case cclass i of- 7 -> state99 err (i:as) is- 9 -> state99 err (i:as) is- 12 -> state99 err (i:as) is- 14 -> state99 err (i:as) is- 19 -> state99 err (i:as) is- 20 -> state99 err (i:as) is- 21 -> state99 err (i:as) is- 23 -> state99 err (i:as) is- 48 -> state99 err (i:as) is- 49 -> state99 err (i:as) is- 75 -> state99 err (i:as) is- 13 -> state101 err (i:as) is- 22 -> state102 err (i:as) is- _ -> err as iis- where err _ _ = output Qvarsym as (start1 iis)--start101 :: Lexer-start101 is = state101 (\ as is -> gotError as is) "" is-state101 :: LexerState-state101 err as [] = err as []-state101 err as iis@(i:is) =- case cclass i of- 7 -> state99 err (i:as) is- 9 -> state99 err (i:as) is- 12 -> state99 err (i:as) is- 14 -> state99 err (i:as) is- 19 -> state99 err (i:as) is- 20 -> state99 err (i:as) is- 21 -> state99 err (i:as) is- 22 -> state99 err (i:as) is- 23 -> state99 err (i:as) is- 48 -> state99 err (i:as) is- 49 -> state99 err (i:as) is- 75 -> state99 err (i:as) is- 13 -> state101 err (i:as) is- _ -> err as iis--start102 :: Lexer-start102 is = state102 (\ as is -> gotError as is) "" is-state102 :: LexerState-state102 err as [] = err as []-state102 err as iis@(i:is) =- case cclass i of- 7 -> state99 err (i:as) is- 9 -> state99 err (i:as) is- 12 -> state99 err (i:as) is- 13 -> state99 err (i:as) is- 14 -> state99 err (i:as) is- 19 -> state99 err (i:as) is- 20 -> state99 err (i:as) is- 21 -> state99 err (i:as) is- 22 -> state99 err (i:as) is- 23 -> state99 err (i:as) is- 48 -> state99 err (i:as) is- 49 -> state99 err (i:as) is- 75 -> state99 err (i:as) is- _ -> err as iis--state103 :: LexerState-state103 err as [] = err as []- where err _ _ = output Qvarsym as (start1 [])-state103 err as iis@(i:is) =- case cclass i of- 7 -> state99 err (i:as) is- 9 -> state99 err (i:as) is- 12 -> state99 err (i:as) is- 13 -> state99 err (i:as) is- 19 -> state99 err (i:as) is- 20 -> state99 err (i:as) is- 21 -> state99 err (i:as) is- 22 -> state99 err (i:as) is- 23 -> state99 err (i:as) is- 48 -> state99 err (i:as) is- 49 -> state99 err (i:as) is- 75 -> state99 err (i:as) is- 14 -> state102 err (i:as) is- _ -> err as iis- where err _ _ = output Qvarsym as (start1 iis)--start104 :: Lexer-start104 is = state104 (\ as is -> gotError as is) "" is-state104 :: LexerState-state104 err as [] = err as []-state104 err as iis@(i:is) =- case cclass i of- 7 -> state105 err (i:as) is- 9 -> state105 err (i:as) is- 12 -> state105 err (i:as) is- 13 -> state105 err (i:as) is- 14 -> state105 err (i:as) is- 20 -> state105 err (i:as) is- 21 -> state105 err (i:as) is- 22 -> state105 err (i:as) is- 23 -> state105 err (i:as) is- 48 -> state105 err (i:as) is- 49 -> state105 err (i:as) is- 75 -> state105 err (i:as) is- 19 -> state106 err (i:as) is- _ -> err as iis--state105 :: LexerState-state105 err as [] = err as []- where err _ _ = output Qconsym as (start1 [])-state105 err as iis@(i:is) =- case cclass i of- 7 -> state105 err (i:as) is- 9 -> state105 err (i:as) is- 12 -> state105 err (i:as) is- 13 -> state105 err (i:as) is- 14 -> state105 err (i:as) is- 19 -> state105 err (i:as) is- 20 -> state105 err (i:as) is- 21 -> state105 err (i:as) is- 22 -> state105 err (i:as) is- 23 -> state105 err (i:as) is- 48 -> state105 err (i:as) is- 49 -> state105 err (i:as) is- 75 -> state105 err (i:as) is- _ -> err as iis- where err _ _ = output Qconsym as (start1 iis)--start106 :: Lexer-start106 is = state106 (\ as is -> gotError as is) "" is-state106 :: LexerState-state106 err as [] = err as []-state106 err as iis@(i:is) =- case cclass i of- 7 -> state105 err (i:as) is- 9 -> state105 err (i:as) is- 12 -> state105 err (i:as) is- 13 -> state105 err (i:as) is- 14 -> state105 err (i:as) is- 19 -> state105 err (i:as) is- 20 -> state105 err (i:as) is- 21 -> state105 err (i:as) is- 22 -> state105 err (i:as) is- 23 -> state105 err (i:as) is- 48 -> state105 err (i:as) is- 49 -> state105 err (i:as) is- 75 -> state105 err (i:as) is- _ -> err as iis--state107 :: LexerState-state107 err as [] = err as []- where err _ _ = output Qvarsym as (start1 [])-state107 err as iis@(i:is) =- case cclass i of- 7 -> state99 err (i:as) is- 9 -> state99 err (i:as) is- 12 -> state99 err (i:as) is- 14 -> state99 err (i:as) is- 19 -> state99 err (i:as) is- 20 -> state99 err (i:as) is- 21 -> state99 err (i:as) is- 22 -> state99 err (i:as) is- 23 -> state99 err (i:as) is- 48 -> state99 err (i:as) is- 49 -> state99 err (i:as) is- 75 -> state99 err (i:as) is- 13 -> state102 err (i:as) is- _ -> err as iis- where err _ _ = output Qvarsym as (start1 iis)--start108 :: Lexer-start108 is = state108 (\ as is -> gotError as is) "" is-state108 :: LexerState-state108 err as [] = err as []-state108 err as iis@(i:is) =- case cclass i of- 7 -> state99 err (i:as) is- 9 -> state99 err (i:as) is- 12 -> state99 err (i:as) is- 13 -> state99 err (i:as) is- 14 -> state99 err (i:as) is- 19 -> state99 err (i:as) is- 20 -> state99 err (i:as) is- 21 -> state99 err (i:as) is- 23 -> state99 err (i:as) is- 48 -> state99 err (i:as) is- 49 -> state99 err (i:as) is- 75 -> state99 err (i:as) is- 22 -> state102 err (i:as) is- _ -> err as iis--state109 :: LexerState-state109 err as [] = err as []- where err _ _ = output Qconid as (start1 [])-state109 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 14 -> state98 err (i:as) is- _ -> state109 err (i:as) is- where err _ _ = output Qconid as (start1 iis)--start110 :: Lexer-start110 is = state110 (\ as is -> gotError as is) "" is-state110 :: LexerState-state110 err as [] = err as []-state110 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- _ -> state111 err (i:as) is--state111 :: LexerState-state111 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state111 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state112 :: LexerState-state112 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state112 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 51 -> state113 err (i:as) is- 61 -> state115 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state113 :: LexerState-state113 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state113 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 67 -> state114 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state114 :: LexerState-state114 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state114 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 55 -> state110 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state115 :: LexerState-state115 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state115 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 51 -> state116 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state116 :: LexerState-state116 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state116 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 67 -> state117 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state117 :: LexerState-state117 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state117 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 67 -> state110 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state118 :: LexerState-state118 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state118 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 64 -> state110 err (i:as) is- 51 -> state119 err (i:as) is- 55 -> state121 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state119 :: LexerState-state119 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state119 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 68 -> state120 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state120 :: LexerState-state120 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state120 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 51 -> state110 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state121 :: LexerState-state121 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state121 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 56 -> state122 err (i:as) is- 66 -> state126 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state122 :: LexerState-state122 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state122 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 51 -> state123 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state123 :: LexerState-state123 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state123 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 69 -> state124 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state124 :: LexerState-state124 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state124 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 61 -> state125 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state125 :: LexerState-state125 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state125 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 68 -> state110 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state126 :: LexerState-state126 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state126 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 59 -> state127 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state127 :: LexerState-state127 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state127 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 70 -> state128 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state128 :: LexerState-state128 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state128 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 59 -> state129 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state129 :: LexerState-state129 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state129 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 63 -> state130 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state130 :: LexerState-state130 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state130 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 57 -> state110 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state131 :: LexerState-state131 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state131 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 61 -> state113 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state132 :: LexerState-state132 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state132 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 56 -> state110 err (i:as) is- 62 -> state133 err (i:as) is- 63 -> state136 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state133 :: LexerState-state133 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state133 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 65 -> state134 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state134 :: LexerState-state134 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state134 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 64 -> state135 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state135 :: LexerState-state135 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state135 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 66 -> state125 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--start136 :: Lexer-start136 is = state136 (\ as is -> gotError as is) "" is-state136 :: LexerState-state136 err as [] = err as []-state136 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 56 -> state137 err (i:as) is- 67 -> state140 err (i:as) is- _ -> state111 err (i:as) is--state137 :: LexerState-state137 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state137 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 59 -> state138 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state138 :: LexerState-state138 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state138 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 72 -> state139 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--start139 :: Lexer-start139 is = state139 (\ as is -> gotError as is) "" is-state139 :: LexerState-state139 err as [] = err as []-state139 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 61 -> state110 err (i:as) is- 66 -> state110 err (i:as) is- _ -> state111 err (i:as) is--state140 :: LexerState-state140 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state140 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 68 -> state141 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state141 :: LexerState-state141 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state141 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 51 -> state142 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state142 :: LexerState-state142 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state142 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 63 -> state143 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state143 :: LexerState-state143 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state143 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 53 -> state114 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state144 :: LexerState-state144 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state144 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 55 -> state125 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state145 :: LexerState-state145 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state145 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 64 -> state146 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state146 :: LexerState-state146 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state146 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 54 -> state147 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state147 :: LexerState-state147 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state147 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 69 -> state148 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state148 :: LexerState-state148 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state148 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 61 -> state114 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state149 :: LexerState-state149 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state149 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 55 -> state150 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state150 :: LexerState-state150 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state150 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 71 -> state151 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state151 :: LexerState-state151 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state151 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 68 -> state152 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state152 :: LexerState-state152 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state152 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 73 -> state153 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state153 :: LexerState-state153 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state153 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 65 -> state114 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state154 :: LexerState-state154 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state154 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 56 -> state110 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state155 :: LexerState-state155 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state155 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 73 -> state153 err (i:as) is- 58 -> state156 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state156 :: LexerState-state156 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state156 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 55 -> state157 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state157 :: LexerState-state157 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state157 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 63 -> state110 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state158 :: LexerState-state158 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state158 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 58 -> state159 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state159 :: LexerState-state159 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state159 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 55 -> state160 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state160 :: LexerState-state160 err as [] = err as []- where err _ _ = output Qvarid as (start1 [])-state160 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 66 -> state114 err (i:as) is- _ -> state111 err (i:as) is- where err _ _ = output Qvarid as (start1 iis)--state161 :: LexerState-state161 err as [] = err as []- where err _ _ = output Reservedid as (start1 [])-state161 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- _ -> state162 err (i:as) is- where err _ _ = output Reservedid as (start1 iis)--state162 :: LexerState-state162 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state162 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state163 :: LexerState-state163 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state163 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 51 -> state164 err (i:as) is- 61 -> state166 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state164 :: LexerState-state164 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state164 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 67 -> state165 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state165 :: LexerState-state165 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state165 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 55 -> state161 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state166 :: LexerState-state166 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state166 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 51 -> state167 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state167 :: LexerState-state167 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state167 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 67 -> state168 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state168 :: LexerState-state168 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state168 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 67 -> state161 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state169 :: LexerState-state169 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state169 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 64 -> state161 err (i:as) is- 51 -> state170 err (i:as) is- 55 -> state172 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state170 :: LexerState-state170 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state170 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 68 -> state171 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state171 :: LexerState-state171 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state171 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 51 -> state161 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state172 :: LexerState-state172 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state172 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 56 -> state173 err (i:as) is- 66 -> state177 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state173 :: LexerState-state173 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state173 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 51 -> state174 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state174 :: LexerState-state174 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state174 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 69 -> state175 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state175 :: LexerState-state175 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state175 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 61 -> state176 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state176 :: LexerState-state176 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state176 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 68 -> state161 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state177 :: LexerState-state177 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state177 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 59 -> state178 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state178 :: LexerState-state178 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state178 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 70 -> state179 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state179 :: LexerState-state179 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state179 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 59 -> state180 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state180 :: LexerState-state180 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state180 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 63 -> state181 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state181 :: LexerState-state181 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state181 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 57 -> state161 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state182 :: LexerState-state182 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state182 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 61 -> state164 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state183 :: LexerState-state183 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state183 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 56 -> state161 err (i:as) is- 62 -> state184 err (i:as) is- 63 -> state187 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state184 :: LexerState-state184 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state184 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 65 -> state185 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state185 :: LexerState-state185 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state185 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 64 -> state186 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state186 :: LexerState-state186 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state186 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 66 -> state176 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state187 :: LexerState-state187 err as [] = err as []- where err _ _ = output Reservedid as (start1 [])-state187 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 56 -> state188 err (i:as) is- 67 -> state191 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Reservedid as (start1 iis)--state188 :: LexerState-state188 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state188 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 59 -> state189 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state189 :: LexerState-state189 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state189 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 72 -> state190 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state190 :: LexerState-state190 err as [] = err as []- where err _ _ = output Reservedid as (start1 [])-state190 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 61 -> state161 err (i:as) is- 66 -> state161 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Reservedid as (start1 iis)--state191 :: LexerState-state191 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state191 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 68 -> state192 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state192 :: LexerState-state192 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state192 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 51 -> state193 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state193 :: LexerState-state193 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state193 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 63 -> state194 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state194 :: LexerState-state194 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state194 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 53 -> state165 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state195 :: LexerState-state195 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state195 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 55 -> state176 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state196 :: LexerState-state196 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state196 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 64 -> state197 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state197 :: LexerState-state197 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state197 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 54 -> state198 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state198 :: LexerState-state198 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state198 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 69 -> state199 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state199 :: LexerState-state199 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state199 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 61 -> state165 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state200 :: LexerState-state200 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state200 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 55 -> state201 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state201 :: LexerState-state201 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state201 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 71 -> state202 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state202 :: LexerState-state202 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state202 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 68 -> state203 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state203 :: LexerState-state203 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state203 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 73 -> state204 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state204 :: LexerState-state204 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state204 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 65 -> state165 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state205 :: LexerState-state205 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state205 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 56 -> state161 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state206 :: LexerState-state206 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state206 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 73 -> state204 err (i:as) is- 58 -> state207 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state207 :: LexerState-state207 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state207 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 55 -> state208 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state208 :: LexerState-state208 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state208 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 63 -> state161 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state209 :: LexerState-state209 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state209 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 58 -> state210 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state210 :: LexerState-state210 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state210 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 55 -> state211 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state211 :: LexerState-state211 err as [] = err as []- where err _ _ = output Varid as (start1 [])-state211 err as iis@(i:is) =- case cclass i of- 0 -> err as iis- 1 -> err as iis- 2 -> err as iis- 3 -> err as iis- 4 -> err as iis- 5 -> err as iis- 6 -> err as iis- 7 -> err as iis- 8 -> err as iis- 9 -> err as iis- 11 -> err as iis- 12 -> err as iis- 13 -> err as iis- 14 -> err as iis- 19 -> err as iis- 20 -> err as iis- 21 -> err as iis- 22 -> err as iis- 23 -> err as iis- 47 -> err as iis- 48 -> err as iis- 49 -> err as iis- 74 -> err as iis- 75 -> err as iis- 76 -> err as iis- 66 -> state165 err (i:as) is- _ -> state162 err (i:as) is- where err _ _ = output Varid as (start1 iis)--state212 :: LexerState-state212 err as [] = err as []- where err _ _ = output Special as (start1 [])-state212 err as iis@(i:is) =- case cclass i of- 13 -> state213 err (i:as) is- _ -> err as iis- where err _ _ = output Special as (start1 iis)--state213 :: LexerState-state213 err as is = nestedComment as is state214--state214 :: LexerState-state214 err as is = output NestedComment as (start1 is)--
− src/lexer/HsLexUtils.hs
@@ -1,37 +0,0 @@-module HsLexUtils(module HsLexUtils,Token(..)) where-import HsTokens--gotEOF [] = []-gotEOF as = [(GotEOF, reverse as)]--gotError as is =- (ErrorToken, reverse as):- if null is then [(GotEOF,[])] else [(TheRest,is{-reverse (take 80 is)-})]---- Inlining the call to output does not make a big difference.---output token as cont = (token, reverse as):cont---- Not reversing the token string seems to save about 10% of the time with HBC.--- The difference in speed seems insignificant with ghc-6.0.1 -O.-output token as cont = (token,reverse as):cont---- This avoids constructing a closure for the call to reverse.--- This saves about 10% too.-{--output token as cont =- rev as []- where- rev [] as' = (token,as'):cont- rev (a:as) as' = rev as (a:as')---}--nestedComment as is next = nest 0 as is- where- nest n as is =- case is of- '-':'}':is -> if n==0- then next gotError ('}':'-':as) is- else nest (n-1) ('}':'-':as) is- '{':'-':is -> nest (n+1) ('-':'{':as) is- c:is -> nest n (c:as) is- _ -> gotError as is -- EOF inside comment
− src/lexer/HsLexerPass1.hs
@@ -1,54 +0,0 @@-module HsLexerPass1(module HsLexerPass1,module HsLexerPos) where-import HsLex(haskellLex)-import HsLexUtils-import HsLayoutPre(layoutPre,PosToken)-import HsLexerPos-import Data.List(mapAccumL)--default(Int)--{-+-The function #lexerPass1# handles the part of lexical analysis that-can be done independently of the parser, i.e., the tokenization and the-addition of the extra layout tokens <n> and {n}, as specified in-section 9.3 of the revised Haskell 98 Report.--}--type LexerOutput = [PosToken]-type Lexer = String -> LexerOutput--lexerPass1 :: Lexer-lexerPass1 = lexerPass1Only . lexerPass0--lexerPass1Only = layoutPre . rmSpace--rmSpace = filter (notWhite.fst)--notWhite t = t/=Whitespace &&- t/=Commentstart && t/=Comment &&- t/=NestedComment---- Tokenize and add position information:--lexerPass0 :: Lexer-lexerPass0 = lexerPass0' startPos--lexerPass0' :: Pos -> Lexer-lexerPass0' pos0 = addPos . haskellLex . rmcr- where- addPos = snd . mapAccumL pos pos0-- pos p (t,s) = {-seq p'-} (p',(t,(p,s)))- where p' = nextPos p s--- where s = reverse r--{-+-Since #nextPos# examines one character at a time, it will increase the line-number by 2 if it sees \CR\LF, which can happen when reading DOS files on-a Unix like system.-Since the extra \CR characters can cause trouble later as well, we choose-to simply remove them here.--}-rmcr ('\CR':'\LF':s) = '\LF':rmcr s-rmcr (c:s) = c:rmcr s-rmcr "" = ""
− src/lexer/HsLexerPos.hs
@@ -1,34 +0,0 @@-module HsLexerPos where--data Pos = Pos { char, line, column :: !Int } deriving (Show)--simpPos (Pos _ l c) = (l,c)---- Some functions still put fake char positions in Pos values, so...-instance Eq Pos where p1 == p2 = simpPos p1 == simpPos p2-instance Ord Pos where compare p1 p2 = compare (simpPos p1) (simpPos p2)---startPos = Pos { char=0,- line=1,- column=1 -- The first column is designated column 1, not 0.- }--nextPos :: Pos -> String -> Pos-nextPos = foldl nextPos1--nextPos1 :: Pos -> Char -> Pos-nextPos1 (Pos n y x) c =- case c of- -- The characters newline, return, linefeed, and formfeed, all start- -- a new line.- '\n' -> Pos (n+1) (y+1) 1- '\CR' -> Pos (n+1) (y+1) 1- '\LF' -> Pos (n+1) (y+1) 1- '\FF' -> Pos (n+1) (y+1) 1- -- Tab stops are 8 characters apart.- -- A tab character causes the insertion of enough spaces to align the- -- current position with the next tab stop.- -- + (not in the report) the first tab stop is column 1.- '\t' -> Pos (n+1) y (x+8-(x-1) `mod` 8)- _ -> Pos (n+1) y (x+1)
− src/lexer/HsTokens.hs
@@ -1,27 +0,0 @@-module HsTokens where---- Haskell token classifications:--data Token- = Varid | Conid | Varsym | Consym- | Reservedid | Reservedop | Specialid- | IntLit | FloatLit | CharLit | StringLit- | Qvarid | Qconid | Qvarsym | Qconsym- | Special | Whitespace-- | NestedCommentStart -- will cause a call to an external function- | NestedComment -- from the external function- | LiterateComment -- not handled by the lexer-- | Commentstart -- dashes- | Comment -- what follows the dashes-- | ErrorToken | GotEOF | TheRest-- | ModuleName | ModuleAlias -- recognized in a later pass-- -- Inserted during layout processing (see Haskell 98, 9.3):- | Layout -- for implicit braces- | Indent Int -- <n>, to preceed first token on each line- | Open Int -- {n}, after let, where, do or of, if not followed by a "{"- deriving (Show,Eq,Ord)