From a19856618b41d1195b0ac05fedbb5c433e8b817e Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 11 Jan 2005 15:06:12 +0000
Subject: [PATCH] -val optimization

---
 doc/val-optimization.txt                | 183 ++++++++++
 grammars/database/DatabaseI.gf          |   2 +-
 lib/resource/italian/StructuralIta.gf   |   2 +-
 lib/resource/spanish/StructuralSpa.gf   |   2 +-
 lib/resource/spanish/TestResourceSpa.gf |   2 +-
 lib/resource/spanish/TypesSpa.gf        |   2 +-
 src/GF/CF/CanonToCF.hs                  |   3 +
 src/GF/Canon/AbsGFC.hs                  |   1 +
 src/GF/Canon/CanonToGrammar.hs          |   4 +
 src/GF/Canon/GFC.cf                     |   1 +
 src/GF/Canon/LexGFC.hs                  | 148 ++++----
 src/GF/Canon/LexGFC.x                   |  46 ++-
 src/GF/Canon/Look.hs                    |   6 +
 src/GF/Canon/ParGFC.hs                  | 264 ++++++++-------
 src/GF/Canon/PrintGFC.hs                |   1 +
 src/GF/Canon/Share.hs                   |   9 +-
 src/GF/Canon/SkelGFC.hs                 |   2 +
 src/GF/Canon/TestGFC.hs                 |  28 +-
 src/GF/Compile/Compile.hs               |  10 +-
 src/GF/Compile/GrammarToCanon.hs        |   4 +
 src/GF/Compile/Optimize.hs              |   1 +
 src/GF/Grammar/Compute.hs               |  14 +-
 src/GF/Grammar/Grammar.hs               |   1 +
 src/GF/Grammar/Macros.hs                |   6 +
 src/GF/Infra/Option.hs                  |   1 +
 src/GF/Shell/ShellCommands.hs           |   2 +-
 src/GF/Source/AbsGF.hs                  |   1 +
 src/GF/Source/GF.cf                     |   1 +
 src/GF/Source/GrammarToSource.hs        |   1 +
 src/GF/Source/LexGF.hs                  | 152 ++++-----
 src/GF/Source/LexGF.x                   |  50 ++-
 src/GF/Source/ParGF.hs                  | 432 ++++++++++++------------
 src/GF/Source/PrintGF.hs                |   1 +
 src/GF/Source/SkelGF.hs                 |   1 +
 src/GF/Source/SourceToGrammar.hs        |   2 +
 src/GF/Source/TestGF.hs                 |  28 +-
 36 files changed, 829 insertions(+), 585 deletions(-)
 create mode 100644 doc/val-optimization.txt

diff --git a/doc/val-optimization.txt b/doc/val-optimization.txt
new file mode 100644
index 000000000..e2342876d
--- /dev/null
+++ b/doc/val-optimization.txt
@@ -0,0 +1,183 @@
+Idea: in GFC, represent tables as just lists values, without showing
+the parameters.
+
+Concrete syntax: 
+
+  table T [t1 ; ... ; tn]
+
+where t1,...,tn are terms. This is treated as equivalent to
+
+  table {p1 => t1 ; ... ; pn => tn}
+
+where p1,...,pn is the canonical listing of patterns of type T.
+
+Advantage: reduce the size of GFC files.
+
+Disadvantages: you don't get the sharing optimization, e.g.
+table {A|B => v} instead of table T [v ; v] 
+Moreover, it is slower to select from the table, because
+one first has to look up the position index of the argument.
+
+Usage: when compiling a module, use the -val option:
+
+  i -val -src Foo.gf
+
+Summary of results, testing with lib/resource/french/TestVerbesFre.gf:
+
+                              without -val    with -val    ratio
+  compilation time                   129 s         84 s     65 %
+  time to read back gfcm             109 s         32 s     29 %
+  size of generated gfcm              28 M          9 M     32 %
+  memory use in compilation          376 M        251 M     67 %
+  memory use in reading gfcm        1120 M        524 M     47 %
+
+No significant loss in linearization (which needs selection).
+
+Conclusion: for the case at hand (which prompted the experiment
+at the first place), the gain is significant: compilation needs
+30 % less resources, and using the compiled grammar needs
+50-70 % less.
+
+More testing is desirable to find out if -val is always good.
+
+At the moment, reuse is not possible with gfc modules created
+with the -val flag (although it is supported by the GF syntax
+already).
+
+
+
+10/1/2004
+
+Test the generation of course-of-values tables
+
+---------------------
+Without:
+
+  i -src TestVerbesFre.gf
+  129160 msec
+
+  > gr -cat=V | l -table
+  650 msec
+
+gf +RTS -K10M -s
+8,469,778,952 bytes allocated in the heap
+2,779,891,252 bytes copied during GC
+133,108,856 bytes maximum residency (36 sample(s))
+
+      32295 collections in generation 0 ( 24,25s)
+         36 collections in generation 1 ( 24,68s)
+
+        376 Mb total memory in use
+
+  INIT  time    0,01s  (  0,04s elapsed)
+  MUT   time   80,21s  (499,76s elapsed)
+  GC    time   48,93s  ( 50,01s elapsed)
+  EXIT  time    0,00s  (  0,00s elapsed)
+  Total time  129,15s  (549,81s elapsed)
+
+  %GC time      37,9%  (9,1% elapsed)
+
+  Alloc rate    105,581,886 bytes per MUT second
+
+  Productivity  62,1% of total user, 14,6% of total elapsed
+
+
+wc french/*.gfc french/*.gfr
+      37     2533    44976 french/CategoriesFre.gfc
+       0        9       62 french/ConjugNancy.gfc
+       2       29      137 french/MorphoFre.gfc
+      29      966     7641 french/NumeralsFre.gfc
+     136   393891  4415193 french/RulesFre.gfc
+     151     4211    39290 french/StructuralFre.gfc
+     123      607     3259 french/SyntaxFre.gfc
+     285     4702    59892 french/TestResourceFre.gfc
+    6790    27179   184046 french/TestVerbesAbs.gfc
+    6781    28170   198376 french/TestVerbesFre.gfc
+      20      214     1245 french/TypesFre.gfc
+    6494    45458   254878 french/VerbesAbs.gfc
+    6494  1272600 23438292 french/VerbesFre.gfc
+    6449    45143   209154 french/Vs.gfc
+    6278    47836   426316 french/ConjugNancy.gfr
+   14465    72471   655006 french/MorphoFre.gfr
+  238250   798560  8973600 french/SyntaxFre.gfr
+     492     2557    21908 french/TypesFre.gfr
+  293276  2747136 38933271 total
+
+pm | wf test0.gfcm
+55660 msec
+
+wc test0.gfcm
+   28041  1784674 28669416 test0.gfcm
+
+> i test0.gfcm
++ reading test0.gfcm 103290 msec
+109450 msec
+
+1120 Mb total memory in use
+
+----------------------
+After:
+
+
+  i -src -val TestVerbesFre.gf
+  84650 msec
+
+  gr -cat=V | l -table
+  390 msec
+
+gf +RTS -K10M -s
+6,061,907,436 bytes allocated in the heap
+1,576,739,488 bytes copied during GC
+ 92,700,188 bytes maximum residency (32 sample(s))
+
+      23109 collections in generation 0 ( 13,98s)
+         32 collections in generation 1 ( 12,02s)
+
+        251 Mb total memory in use
+
+  INIT  time    0,01s  (  0,00s elapsed)
+  MUT   time   59,28s  (122,35s elapsed)
+  GC    time   26,00s  ( 26,91s elapsed)
+  EXIT  time    0,00s  (  0,00s elapsed)
+  Total time   85,29s  (149,26s elapsed)
+
+  %GC time      30,5%  (18,0% elapsed)
+
+  Alloc rate    102,241,650 bytes per MUT second
+
+  Productivity  69,5% of total user, 39,7% of total elapsed
+
+wc french/*.gfc french/*.gfr
+      37     3894    13600 french/CategoriesFre.gfc
+       0        9       62 french/ConjugNancy.gfc
+       2       29      137 french/MorphoFre.gfc
+      29      938     5726 french/NumeralsFre.gfc
+     136   354450  3097901 french/RulesFre.gfc
+     151     3738    22354 french/StructuralFre.gfc
+     123      607     3259 french/SyntaxFre.gfc
+     285     2437    18664 french/TestResourceFre.gfc
+    6790    27179   184046 french/TestVerbesAbs.gfc
+    6781    27694   191696 french/TestVerbesFre.gfc
+      20      214     1245 french/TypesFre.gfc
+    6494    45458   254878 french/VerbesAbs.gfc
+    6494   442149  5078881 french/VerbesFre.gfc
+    6449    45143   209154 french/Vs.gfc
+    6278    47836   426316 french/ConjugNancy.gfr
+   14465    72471   655006 french/MorphoFre.gfr
+  238250   798560  8973600 french/SyntaxFre.gfr
+     492     2557    21908 french/TypesFre.gfr
+  293276  1875363 19158433 total
+
+pm | wf test1.gfcm
+13030 msec
+
+wc test1.gfcm
+  28041  912901 8894578 test1.gfcm
+
+> i test1.gfcm
++ reading test1.gfcm 24220 msec
+32720 msec
+
+524 Mb total memory in use
+
+
diff --git a/grammars/database/DatabaseI.gf b/grammars/database/DatabaseI.gf
index 13694416b..204e43c81 100644
--- a/grammars/database/DatabaseI.gf
+++ b/grammars/database/DatabaseI.gf
@@ -1,6 +1,6 @@
 --# -path=.:../newresource/abstract:../prelude
 
-incomplete concrete DatabaseI of Database = open Prelude, Resource, Structural in {
+incomplete concrete DatabaseI of Database = open Prelude, Resource in {
 
 flags lexer=text ; unlexer=text ;
 
diff --git a/lib/resource/italian/StructuralIta.gf b/lib/resource/italian/StructuralIta.gf
index 1e21374ed..898106566 100644
--- a/lib/resource/italian/StructuralIta.gf
+++ b/lib/resource/italian/StructuralIta.gf
@@ -69,7 +69,7 @@ lin
   OtherwiseAdv = ss "altramente" ;
   ThereforeAdv = ss "quindi" ;
 
-  EverybodyNP  = mkNameNounPhrase ["tutti"] Masc ;
+  EverybodyNP  = normalNounPhrase (\\c => prepCase c ++ "tutti") Masc Pl ;
   SomebodyNP   = mkNameNounPhrase ["qualcuno"] Masc ;
   NobodyNP     = mkNameNounPhrase ["nessuno"] Masc ;  --- ne
   EverythingNP = mkNameNounPhrase ["tutto"] Masc ;
diff --git a/lib/resource/spanish/StructuralSpa.gf b/lib/resource/spanish/StructuralSpa.gf
index b81f9a317..3ff880a04 100644
--- a/lib/resource/spanish/StructuralSpa.gf
+++ b/lib/resource/spanish/StructuralSpa.gf
@@ -71,7 +71,7 @@ lin
   OtherwiseAdv = ss "otramente" ;
   ThereforeAdv = ss ["por eso"] ;
 
-  EverybodyNP  = mkNameNounPhrase ["todos"] Masc ;
+  EverybodyNP  = normalNounPhrase (\\c => prepCase c ++ "todos") Masc Pl ;
   SomebodyNP   = mkNameNounPhrase ["algún"] Masc ;
   NobodyNP     = mkNameNounPhrase ["nadién"] Masc ;  --- ne
   EverythingNP = mkNameNounPhrase ["todo"] Masc ;
diff --git a/lib/resource/spanish/TestResourceSpa.gf b/lib/resource/spanish/TestResourceSpa.gf
index e648ab793..09059b5f8 100644
--- a/lib/resource/spanish/TestResourceSpa.gf
+++ b/lib/resource/spanish/TestResourceSpa.gf
@@ -36,7 +36,7 @@ lin
   SwitchOn = mkTransVerbDir  (verbPres (vender_4 "enciender") AHabere) ; ----
   SwitchOff = mkTransVerbDir  (verbPres (zurrar_3 "apagar") AHabere) ;
   Mother = funGen (mkCNom (nomVino "madre") Fem) ;
-  Uncle = funGen (mkCNom (nomVino "zio") Masc) ;
+  Uncle = funGen (mkCNom (nomVino "tío") Masc) ;
   Connection = mkCNom (nomPilar "connexión") Fem ** 
                {s2 = [] ; c = CPrep P_de ; s3 = [] ; c3 = dative} ;
 
diff --git a/lib/resource/spanish/TypesSpa.gf b/lib/resource/spanish/TypesSpa.gf
index b7ab1317f..166dfcee3 100644
--- a/lib/resource/spanish/TypesSpa.gf
+++ b/lib/resource/spanish/TypesSpa.gf
@@ -117,7 +117,7 @@ oper
     VFin VFut n p          => amare.s ! VP (Fut  Ind n p) ;
     VFin VCondit n p       => amare.s ! VP (Cond n p) ;
     VImper np              => amare.s ! VP (Imp  Sg P2) ; ---- n p ;
-    VPart g n              => amare.s ! VI Part ---- g n ?
+    VPart g n              => amare.s ! VP (Pass n g)
     } ;
   aux = a
   } ;
diff --git a/src/GF/CF/CanonToCF.hs b/src/GF/CF/CanonToCF.hs
index 58674e189..ff8ec32e2 100644
--- a/src/GF/CF/CanonToCF.hs
+++ b/src/GF/CF/CanonToCF.hs
@@ -97,6 +97,9 @@ term2CFItems m t = errIn "forming cf items" $ case t of
    T _ cc -> do
      its  <- mapM t2c [t | Cas _ t <- cc]
      tryMkCFTerm (concat its)
+   V _ cc -> do
+     its  <- mapM t2c [t | t <- cc]
+     tryMkCFTerm (concat its)
 
    C t1 t2 -> do
      its1 <- t2c t1
diff --git a/src/GF/Canon/AbsGFC.hs b/src/GF/Canon/AbsGFC.hs
index 846a570b8..e0f4c418e 100644
--- a/src/GF/Canon/AbsGFC.hs
+++ b/src/GF/Canon/AbsGFC.hs
@@ -119,6 +119,7 @@ data Term =
  | R [Assign]
  | P Term Label
  | T CType [Case]
+ | V CType [Term]
  | S Term Term
  | C Term Term
  | FV [Term]
diff --git a/src/GF/Canon/CanonToGrammar.hs b/src/GF/Canon/CanonToGrammar.hs
index 75dc81bc0..e53af46be 100644
--- a/src/GF/Canon/CanonToGrammar.hs
+++ b/src/GF/Canon/CanonToGrammar.hs
@@ -136,6 +136,10 @@ redCTerm x = case x of
                   [G.PV _] -> G.TTyped ctype'
                   _ -> G.TComp ctype'
     return $ G.T tinfo $ zip ps' ts'
+  V ctype ts  -> do
+    ctype' <- redCType ctype
+    ts' <- mapM redCTerm ts
+    return $ G.V ctype' ts'
   S term0 term  -> liftM2 G.S (redCTerm term0) (redCTerm term)
   C term0 term  -> liftM2 G.C (redCTerm term0) (redCTerm term)
   FV terms  -> liftM G.FV $ mapM redCTerm terms
diff --git a/src/GF/Canon/GFC.cf b/src/GF/Canon/GFC.cf
index a7199af4c..7d258b38e 100644
--- a/src/GF/Canon/GFC.cf
+++ b/src/GF/Canon/GFC.cf
@@ -105,6 +105,7 @@ LI.   Term2 ::= "$" Ident ;  -- from pattern variables
 R.    Term2 ::= "{" [Assign] "}" ;
 P.    Term1 ::= Term2 "." Label ;
 T.    Term1 ::= "table" CType "{" [Case] "}" ;
+V.    Term1 ::= "table" CType "[" [Term2] "]" ;
 S.    Term1 ::= Term1 "!" Term2 ;
 C.    Term  ::= Term "++" Term1 ;
 FV.   Term1 ::= "variants" "{" [Term2] "}" ;  --- no separator!
diff --git a/src/GF/Canon/LexGFC.hs b/src/GF/Canon/LexGFC.hs
index 77f70159f..b181a18ec 100644
--- a/src/GF/Canon/LexGFC.hs
+++ b/src/GF/Canon/LexGFC.hs
@@ -1,9 +1,8 @@
-{-# OPTIONS -fglasgow-exts -cpp #-}
+{-# OPTIONS -cpp #-}
 {-# LINE 3 "LexGFC.x" #-}
 module LexGFC where
 
 import ErrM
-import SharedString
 
 #if __GLASGOW_HASKELL__ >= 503
 import Data.Array
@@ -13,38 +12,30 @@ import Data.Array.Base (unsafeAt)
 import Array
 import Char (ord)
 #endif
-#if __GLASGOW_HASKELL__ >= 503
-import GHC.Exts
-#else
-import GlaExts
-#endif
-alex_base :: AlexAddr
-alex_base = AlexA# "\x01\x00\x39\x00\x42\x00\x00\x00\x09\x00\x1d\x00\x0b\x00\x20\x00\x9a\x00\x6a\x01\x00\x00\x15\x01\xe5\x01\xd3\x00\x33\x00"#
+alex_base :: Array Int Int
+alex_base = listArray (0,14) [1,57,66,0,9,29,11,32,154,362,0,277,485,211,51]
 
-alex_table :: AlexAddr
-alex_table = AlexA# "\x00\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x02\x00\x02\x00\x02\x00\x02\x00\x02\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x02\x00\x03\x00\x0b\x00\xff\xff\x03\x00\xff\xff\xff\xff\xff\xff\x03\x00\x03\x00\x07\x00\x05\x00\x03\x00\x06\x00\x03\x00\x03\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x03\x00\x03\x00\x03\x00\x04\x00\x03\x00\x03\x00\x03\x00\x02\x00\x02\x00\x02\x00\x02\x00\x02\x00\x03\x00\x03\x00\x03\x00\x03\x00\x02\x00\x02\x00\x02\x00\x02\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x03\x00\x03\x00\x03\x00\xff\xff\x03\x00\xff\xff\x02\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x03\x00\x03\x00\x03\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x0c\x00\x00\x00\x00\x00\xff\xff\x09\x00\x0c\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x0d\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x0d\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
+alex_table :: Array Int Int
+alex_table = listArray (0,740) [0,-1,-1,-1,-1,-1,-1,-1,-1,-1,2,2,2,2,2,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,2,3,11,-1,3,-1,-1,-1,3,3,7,5,3,6,3,3,14,14,14,14,14,14,14,14,14,14,3,3,3,4,3,3,3,2,2,2,2,2,3,3,3,3,2,2,2,2,2,0,0,0,0,0,0,0,0,0,2,0,0,3,3,3,-1,3,-1,2,14,14,14,14,14,14,14,14,14,14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,3,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,9,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,0,0,0,0,-1,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,12,0,0,-1,9,12,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12,0,0,0,0,0,0,0,10,0,0,0,0,0,0,0,0,0,12,0,0,0,0,0,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,13,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0,0,0,0,9,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,13,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0,9,9,9,9,9,9,9,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
 
-alex_check :: AlexAddr
-alex_check = AlexA# "\xff\xff\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x14\x00\x15\x00\x16\x00\x17\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x25\x00\x26\x00\x27\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x3d\x00\x3e\x00\x3f\x00\x40\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x3e\x00\x2b\x00\x3e\x00\x2a\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x20\x00\xff\xff\xff\xff\x5b\x00\x5c\x00\x5d\x00\x5e\x00\x5f\x00\x60\x00\x20\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x7b\x00\x7c\x00\x7d\x00\x7e\x00\x7f\x00\x80\x00\x81\x00\x82\x00\x83\x00\x84\x00\x85\x00\x86\x00\x87\x00\x88\x00\x89\x00\x8a\x00\x8b\x00\x8c\x00\x8d\x00\x8e\x00\x8f\x00\x90\x00\x91\x00\x92\x00\x93\x00\x94\x00\x95\x00\x96\x00\x97\x00\x98\x00\x99\x00\x9a\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\x9f\x00\xa0\x00\xa1\x00\xa2\x00\xa3\x00\xa4\x00\xa5\x00\xa6\x00\xa7\x00\xa8\x00\xa9\x00\xaa\x00\xab\x00\xac\x00\xad\x00\xae\x00\xaf\x00\xb0\x00\xb1\x00\xb2\x00\xb3\x00\xb4\x00\xb5\x00\xb6\x00\xb7\x00\xb8\x00\xb9\x00\xba\x00\xbb\x00\xbc\x00\xbd\x00\xbe\x00\xbf\x00\x27\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\xd7\x00\xff\xff\xff\xff\x41\x00\x42\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x53\x00\x54\x00\x55\x00\x56\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x22\x00\xff\xff\xff\xff\xf7\x00\x5f\x00\x27\x00\x61\x00\x62\x00\x63\x00\x64\x00\x65\x00\x66\x00\x67\x00\x68\x00\x69\x00\x6a\x00\x6b\x00\x6c\x00\x6d\x00\x6e\x00\x6f\x00\x70\x00\x71\x00\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x78\x00\x79\x00\x7a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x0a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x5c\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x22\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x6e\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x74\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc0\x00\xc1\x00\xc2\x00\xc3\x00\xc4\x00\xc5\x00\xc6\x00\xc7\x00\xc8\x00\xc9\x00\xca\x00\xcb\x00\xcc\x00\xcd\x00\xce\x00\xcf\x00\xd0\x00\xd1\x00\xd2\x00\xd3\x00\xd4\x00\xd5\x00\xd6\x00\x5c\x00\xd8\x00\xd9\x00\xda\x00\xdb\x00\xdc\x00\xdd\x00\xde\x00\xdf\x00\xe0\x00\xe1\x00\xe2\x00\xe3\x00\xe4\x00\xe5\x00\xe6\x00\xe7\x00\xe8\x00\xe9\x00\xea\x00\xeb\x00\xec\x00\xed\x00\xee\x00\xef\x00\xf0\x00\xf1\x00\xf2\x00\xf3\x00\xf4\x00\xf5\x00\xf6\x00\x27\x00\xf8\x00\xf9\x00\xfa\x00\xfb\x00\xfc\x00\xfd\x00\xfe\x00\xff\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x41\x00\x42\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x53\x00\x54\x00\x55\x00\x56\x00\x57\x00\x58\x00\x59\x00\x5a\x00\xff\xff\xff\xff\xff\xff\xff\xff\x5f\x00\xff\xff\x61\x00\x62\x00\x63\x00\x64\x00\x65\x00\x66\x00\x67\x00\x68\x00\x69\x00\x6a\x00\x6b\x00\x6c\x00\x6d\x00\x6e\x00\x6f\x00\x70\x00\x71\x00\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x78\x00\x79\x00\x7a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x0a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x22\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc0\x00\xc1\x00\xc2\x00\xc3\x00\xc4\x00\xc5\x00\xc6\x00\xc7\x00\xc8\x00\xc9\x00\xca\x00\xcb\x00\xcc\x00\xcd\x00\xce\x00\xcf\x00\xd0\x00\xd1\x00\xd2\x00\xd3\x00\xd4\x00\xd5\x00\xd6\x00\x5c\x00\xd8\x00\xd9\x00\xda\x00\xdb\x00\xdc\x00\xdd\x00\xde\x00\xdf\x00\xe0\x00\xe1\x00\xe2\x00\xe3\x00\xe4\x00\xe5\x00\xe6\x00\xe7\x00\xe8\x00\xe9\x00\xea\x00\xeb\x00\xec\x00\xed\x00\xee\x00\xef\x00\xf0\x00\xf1\x00\xf2\x00\xf3\x00\xf4\x00\xf5\x00\xf6\x00\xff\xff\xf8\x00\xf9\x00\xfa\x00\xfb\x00\xfc\x00\xfd\x00\xfe\x00\xff\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"#
+alex_check :: Array Int Int
+alex_check = listArray (0,740) [-1,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,9,10,11,12,13,62,43,62,42,9,10,11,12,13,-1,-1,-1,-1,-1,-1,-1,-1,-1,32,-1,-1,91,92,93,94,95,96,32,48,49,50,51,52,53,54,55,56,57,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,39,-1,-1,-1,-1,-1,-1,-1,-1,48,49,50,51,52,53,54,55,56,57,-1,-1,-1,-1,215,-1,-1,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,34,-1,-1,247,95,39,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,10,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,92,-1,-1,-1,-1,-1,-1,-1,34,-1,-1,-1,-1,-1,-1,-1,-1,-1,110,-1,-1,-1,-1,-1,116,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,92,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,39,248,249,250,251,252,253,254,255,48,49,50,51,52,53,54,55,56,57,-1,-1,-1,-1,-1,-1,-1,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,-1,-1,-1,-1,95,-1,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,10,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,34,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,92,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,-1,248,249,250,251,252,253,254,255,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1]
 
-alex_deflt :: AlexAddr
-alex_deflt = AlexA# "\x08\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x0c\x00\x0c\x00\xff\xff\xff\xff"#
+alex_deflt :: Array Int Int
+alex_deflt = listArray (0,14) [8,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,12,12,-1,-1]
 
 alex_accept = listArray (0::Int,14) [[],[],[(AlexAccSkip)],[(AlexAcc (alex_action_1))],[(AlexAcc (alex_action_1))],[(AlexAcc (alex_action_1))],[],[],[(AlexAcc (alex_action_2))],[(AlexAcc (alex_action_2))],[(AlexAcc (alex_action_3))],[],[],[],[(AlexAcc (alex_action_4))]]
-{-# LINE 32 "LexGFC.x" #-}
+{-# LINE 31 "LexGFC.x" #-}
 
 tok f p s = f p s
 
-share :: String -> String
-share = shareString
-
 data Tok =
-   TS !String     -- reserved words
- | TL !String     -- string literals
- | TI !String     -- integer literals
- | TV !String     -- identifiers
- | TD !String     -- double precision float literals
- | TC !String     -- character literals
+   TS String     -- reserved words
+ | TL String     -- string literals
+ | TI String     -- integer literals
+ | TV String     -- identifiers
+ | TD String     -- double precision float literals
+ | TC String     -- character literals
 
  deriving (Eq,Show,Ord)
 
@@ -69,18 +60,20 @@ prToken t = case t of
 
   _ -> show t
 
-data BTree = N | B String Tok BTree BTree deriving (Show)
-
 eitherResIdent :: (String -> Tok) -> String -> Tok
-eitherResIdent tv s = treeFind resWords
-  where
-  treeFind N = tv s
-  treeFind (B a t left right) | s < a  = treeFind left
-                              | s > a  = treeFind right
-                              | s == a = t
+eitherResIdent tv s = if isResWord s then (TS s) else (tv s) where
+  isResWord s = isInTree s $
+    B "lin" (B "concrete" (B "Type" (B "Str" (B "Ints" N N) N) (B "cat" (B "abstract" N N) N)) (B "fun" (B "flags" (B "data" N N) N) (B "in" (B "grammar" N N) N))) (B "pre" (B "open" (B "of" (B "lincat" N N) N) (B "param" (B "oper" N N) N)) (B "transfer" (B "table" (B "resource" N N) N) (B "variants" N N)))
 
-resWords = b "lin" (b "concrete" (b "Type" (b "Str" (b "Ints" N N) N) (b "cat" (b "abstract" N N) N)) (b "fun" (b "flags" (b "data" N N) N) (b "in" (b "grammar" N N) N))) (b "pre" (b "open" (b "of" (b "lincat" N N) N) (b "param" (b "oper" N N) N)) (b "transfer" (b "table" (b "resource" N N) N) (b "variants" N N)))
-   where b s = B s (TS s)
+data BTree = N | B String BTree BTree deriving (Show)
+
+isInTree :: String -> BTree -> Bool
+isInTree x tree = case tree of
+  N -> False
+  B a left right
+   | x < a  -> isInTree x left
+   | x > a  -> isInTree x right
+   | x == a -> True
 
 unescapeInitTail :: String -> String
 unescapeInitTail = unesc . tail where
@@ -132,13 +125,10 @@ alexGetChar (p, _, (c:s)) =
 alexInputPrevChar :: AlexInput -> Char
 alexInputPrevChar (p, c, s) = c
 
-alex_action_1 = tok (\p s -> PT p (TS $ share s)) 
-alex_action_2 = tok (\p s -> PT p (eitherResIdent (TV . share) s)) 
-alex_action_3 = tok (\p s -> PT p (TL $ share $ unescapeInitTail s)) 
-alex_action_4 = tok (\p s -> PT p (TI $ share s))    
-{-# LINE 1 "GenericTemplate.hs" #-}
-{-# LINE 1 "<built-in>" #-}
-{-# LINE 1 "<command line>" #-}
+alex_action_1 = tok (\p s -> PT p (TS s)) 
+alex_action_2 = tok (\p s -> PT p (eitherResIdent TV s)) 
+alex_action_3 = tok (\p s -> PT p (TL $ unescapeInitTail s)) 
+alex_action_4 = tok (\p s -> PT p (TI s))    
 {-# LINE 1 "GenericTemplate.hs" #-}
 -- -----------------------------------------------------------------------------
 -- ALEX TEMPLATE
@@ -149,8 +139,7 @@ alex_action_4 = tok (\p s -> PT p (TI $ share s))
 -- -----------------------------------------------------------------------------
 -- INTERNALS and main scanner engine
 
-
-{-# LINE 35 "GenericTemplate.hs" #-}
+{-# LINE 22 "GenericTemplate.hs" #-}
 
 
 
@@ -162,30 +151,23 @@ alex_action_4 = tok (\p s -> PT p (TI $ share s))
 
 
 
-data AlexAddr = AlexA# Addr#
-
-{-# INLINE alexIndexShortOffAddr #-}
-alexIndexShortOffAddr (AlexA# arr) off =
-#if __GLASGOW_HASKELL__ > 500
-	narrow16Int# i
-#elif __GLASGOW_HASKELL__ == 500
-	intToInt16# i
-#else
-	(i `iShiftL#` 16#) `iShiftRA#` 16#
-#endif
-  where
-#if __GLASGOW_HASKELL__ >= 503
-	i = word2Int# ((high `uncheckedShiftL#` 8#) `or#` low)
-#else
-	i = word2Int# ((high `shiftL#` 8#) `or#` low)
-#endif
-	high = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#)))
-	low  = int2Word# (ord# (indexCharOffAddr# arr off'))
-	off' = off *# 2#
 
 
 
 
+
+
+
+
+
+
+
+
+{-# LINE 66 "GenericTemplate.hs" #-}
+
+alexIndexShortOffAddr arr off = arr ! off
+
+
 -- -----------------------------------------------------------------------------
 -- Main lexing routines
 
@@ -196,11 +178,11 @@ data AlexReturn a
   | AlexToken  !AlexInput !Int a
 
 -- alexScan :: AlexInput -> StartCode -> Maybe (AlexInput,Int,act)
-alexScan input (I# (sc))
-  = alexScanUser undefined input (I# (sc))
+alexScan input (sc)
+  = alexScanUser undefined input (sc)
 
-alexScanUser user input (I# (sc))
-  = case alex_scan_tkn user input 0# input sc AlexNone of
+alexScanUser user input (sc)
+  = case alex_scan_tkn user input (0) input sc AlexNone of
 	(AlexNone, input') ->
 		case alexGetChar input of
 			Nothing -> 
@@ -233,12 +215,12 @@ alexScanUser user input (I# (sc))
 alex_scan_tkn user orig_input len input s last_acc =
   input `seq` -- strict in the input
   case s of 
-    -1# -> (last_acc, input)
+    (-1) -> (last_acc, input)
     _ -> alex_scan_tkn' user orig_input len input s last_acc
 
 alex_scan_tkn' user orig_input len input s last_acc =
   let 
-	new_acc = check_accs (alex_accept `unsafeAt` (I# (s)))
+	new_acc = check_accs (alex_accept `unsafeAt` (s))
   in
   new_acc `seq`
   case alexGetChar input of
@@ -249,26 +231,26 @@ alex_scan_tkn' user orig_input len input s last_acc =
 
 	let
 		base   = alexIndexShortOffAddr alex_base s
-		(I# (ord_c)) = ord c
-		offset = (base +# ord_c)
+		(ord_c) = ord c
+		offset = (base + ord_c)
 		check  = alexIndexShortOffAddr alex_check offset
 		
-		new_s = if (offset >=# 0#) && (check ==# ord_c)
+		new_s = if (offset >= (0)) && (check == ord_c)
 			  then alexIndexShortOffAddr alex_table offset
 			  else alexIndexShortOffAddr alex_deflt s
 	in
-	alex_scan_tkn user orig_input (len +# 1#) new_input new_s new_acc
+	alex_scan_tkn user orig_input (len + (1)) new_input new_s new_acc
 
   where
 	check_accs [] = last_acc
-	check_accs (AlexAcc a : _) = AlexLastAcc a input (I# (len))
-	check_accs (AlexAccSkip : _)  = AlexLastSkip  input (I# (len))
+	check_accs (AlexAcc a : _) = AlexLastAcc a input (len)
+	check_accs (AlexAccSkip : _)  = AlexLastSkip  input (len)
 	check_accs (AlexAccPred a pred : rest)
-	   | pred user orig_input (I# (len)) input
-	   = AlexLastAcc a input (I# (len))
+	   | pred user orig_input (len) input
+	   = AlexLastAcc a input (len)
 	check_accs (AlexAccSkipPred pred : rest)
-	   | pred user orig_input (I# (len)) input
-	   = AlexLastSkip input (I# (len))
+	   | pred user orig_input (len) input
+	   = AlexLastSkip input (len)
 	check_accs (_ : rest) = check_accs rest
 
 data AlexLastAcc a
@@ -297,8 +279,8 @@ alexPrevCharIs c _ input _ _ = c == alexInputPrevChar input
 alexPrevCharIsOneOf arr _ input _ _ = arr ! alexInputPrevChar input
 
 --alexRightContext :: Int -> AlexAccPred _
-alexRightContext (I# (sc)) user _ _ input = 
-     case alex_scan_tkn user input 0# input sc AlexNone of
+alexRightContext (sc) user _ _ input = 
+     case alex_scan_tkn user input (0) input sc AlexNone of
 	  (AlexNone, _) -> False
 	  _ -> True
 	-- TODO: there's no need to find the longest
@@ -306,4 +288,4 @@ alexRightContext (I# (sc)) user _ _ input =
 	-- the first match will do.
 
 -- used by wrappers
-iUnbox (I# (i)) = i
+iUnbox (i) = i
diff --git a/src/GF/Canon/LexGFC.x b/src/GF/Canon/LexGFC.x
index d1dfaa1b4..3ab44786b 100644
--- a/src/GF/Canon/LexGFC.x
+++ b/src/GF/Canon/LexGFC.x
@@ -4,7 +4,6 @@
 module LexGFC where
 
 import ErrM
-import SharedString
 }
 
 
@@ -21,28 +20,25 @@ $u = [\0-\255]          -- universal: any character
 :-
 
 $white+ ;
-@rsyms { tok (\p s -> PT p (TS $ share s)) }
+@rsyms { tok (\p s -> PT p (TS s)) }
 
-$l $i*   { tok (\p s -> PT p (eitherResIdent (TV . share) s)) }
-\" ([$u # [\" \\ \n]] | (\\ (\" | \\ | \' | n | t)))* \"{ tok (\p s -> PT p (TL $ share $ unescapeInitTail s)) }
+$l $i*   { tok (\p s -> PT p (eitherResIdent TV s)) }
+\" ([$u # [\" \\ \n]] | (\\ (\" | \\ | \' | n | t)))* \"{ tok (\p s -> PT p (TL $ unescapeInitTail s)) }
 
-$d+      { tok (\p s -> PT p (TI $ share s))    }
+$d+      { tok (\p s -> PT p (TI s))    }
 
 
 {
 
 tok f p s = f p s
 
-share :: String -> String
-share = shareString
-
 data Tok =
-   TS !String     -- reserved words
- | TL !String     -- string literals
- | TI !String     -- integer literals
- | TV !String     -- identifiers
- | TD !String     -- double precision float literals
- | TC !String     -- character literals
+   TS String     -- reserved words
+ | TL String     -- string literals
+ | TI String     -- integer literals
+ | TV String     -- identifiers
+ | TD String     -- double precision float literals
+ | TC String     -- character literals
 
  deriving (Eq,Show,Ord)
 
@@ -67,18 +63,20 @@ prToken t = case t of
 
   _ -> show t
 
-data BTree = N | B String Tok BTree BTree deriving (Show)
-
 eitherResIdent :: (String -> Tok) -> String -> Tok
-eitherResIdent tv s = treeFind resWords
-  where
-  treeFind N = tv s
-  treeFind (B a t left right) | s < a  = treeFind left
-                              | s > a  = treeFind right
-                              | s == a = t
+eitherResIdent tv s = if isResWord s then (TS s) else (tv s) where
+  isResWord s = isInTree s $
+    B "lin" (B "concrete" (B "Type" (B "Str" (B "Ints" N N) N) (B "cat" (B "abstract" N N) N)) (B "fun" (B "flags" (B "data" N N) N) (B "in" (B "grammar" N N) N))) (B "pre" (B "open" (B "of" (B "lincat" N N) N) (B "param" (B "oper" N N) N)) (B "transfer" (B "table" (B "resource" N N) N) (B "variants" N N)))
 
-resWords = b "lin" (b "concrete" (b "Type" (b "Str" (b "Ints" N N) N) (b "cat" (b "abstract" N N) N)) (b "fun" (b "flags" (b "data" N N) N) (b "in" (b "grammar" N N) N))) (b "pre" (b "open" (b "of" (b "lincat" N N) N) (b "param" (b "oper" N N) N)) (b "transfer" (b "table" (b "resource" N N) N) (b "variants" N N)))
-   where b s = B s (TS s)
+data BTree = N | B String BTree BTree deriving (Show)
+
+isInTree :: String -> BTree -> Bool
+isInTree x tree = case tree of
+  N -> False
+  B a left right
+   | x < a  -> isInTree x left
+   | x > a  -> isInTree x right
+   | x == a -> True
 
 unescapeInitTail :: String -> String
 unescapeInitTail = unesc . tail where
diff --git a/src/GF/Canon/Look.hs b/src/GF/Canon/Look.hs
index 8dfd4b3fb..615557a88 100644
--- a/src/GF/Canon/Look.hs
+++ b/src/GF/Canon/Look.hs
@@ -151,6 +151,12 @@ ccompute cnc = comp []
     T ty rs -> liftM (T ty . map (uncurry Cas)) $ 
                   mapPairsM compt [(l,r) | Cas l r <- rs]
 
+    V ptyp ts -> do
+      vs0 <- allParamValues cnc ptyp
+      vs  <- mapM term2patt vs0
+      let cc = [Cas [p] u | (p,u) <- zip vs ts]
+      compt $ T ptyp cc
+
     Con c xs -> liftM (Con c) $ mapM compt xs
 
     K (KS []) -> return E --- should not be needed
diff --git a/src/GF/Canon/ParGFC.hs b/src/GF/Canon/ParGFC.hs
index ed3bab271..21c99f939 100644
--- a/src/GF/Canon/ParGFC.hs
+++ b/src/GF/Canon/ParGFC.hs
@@ -340,21 +340,21 @@ happyOutTok x = unsafeCoerce# x
 {-# INLINE happyOutTok #-}
 
 happyActOffsets :: HappyAddr
-happyActOffsets = HappyA# "\x26\x02\x22\x02\x00\x00\x21\x02\x5b\x01\x18\x02\x28\x02\x1f\x02\x00\x00\x3f\x02\x12\x02\x12\x02\x12\x02\x12\x02\x3a\x02\x00\x00\x1c\x02\x00\x00\x17\x00\x0d\x02\x0d\x02\x00\x00\x38\x02\x17\x02\x34\x02\x0c\x02\x0c\x02\x32\x02\x00\x00\x00\x00\x33\x02\x0b\x02\x00\x00\x5b\x01\x15\x02\x00\x00\x06\x02\x00\x00\x13\x02\x00\x00\x31\x02\x71\x00\x03\x02\x2f\x02\x0f\x02\x2e\x02\x00\x00\x02\x02\x02\x02\x02\x02\x02\x02\x02\x02\x02\x02\x02\x02\x00\x00\x2c\x02\x2b\x02\x27\x02\x29\x02\x25\x02\x24\x02\x20\x02\x00\x00\x00\x02\x00\x00\xf6\x01\x00\x00\xf6\x01\xf6\x01\x10\x00\xf6\x01\x60\x00\x60\x00\xf6\x01\x10\x00\x19\x02\x00\x00\x00\x00\x00\x00\xa2\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf5\x01\x10\x00\xf5\x01\xf5\x01\xf0\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x02\x00\x00\x00\x00\x1e\x02\x15\x00\x60\x00\xee\x01\x00\x00\x1d\x02\x1b\x02\x1a\x02\x16\x02\x10\x02\x14\x02\x00\x00\xe9\x01\x11\x02\x10\x00\x10\x00\x08\x02\x0c\x00\x00\x00\xfe\x01\x00\x00\x0a\x02\x05\x02\x01\x02\xd3\x01\x0c\x00\xd2\x01\x60\x00\x00\x00\x00\x00\xf2\x01\xf8\x00\xec\x01\xf1\x01\xf4\x01\x00\x00\x10\x00\xc4\x01\x00\x00\xf3\x01\x7a\x00\x00\x00\x10\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\xe4\x00\x00\x00\x00\x00\x00\x00\xe8\x01\xdd\x01\xe1\x01\x00\x00\x00\x00\x15\x00\x43\x00\x0c\x00\xbf\x01\xbf\x01\x60\x00\xe4\x01\x00\x00\x00\x00\x60\x00\x15\x00\x60\x00\xb7\x00\xb4\x01\x00\x00\x00\x00\x00\x00\x00\x00\xb4\x01\x87\x00\xca\x01\xe0\x01\x0c\x00\x0c\x00\xd4\x01\x00\x00\x00\x00\x00\x00\xdf\x01\x00\x00\x00\x00\xb4\x00\x00\x00\x00\x00\xde\x01\xdc\x01\xd1\x01\x51\x00\x15\x00\xb0\x01\xb0\x01\xc7\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\xa2\x01\x00\x00\x00\x00\x00\x00\x00\x00\xcc\x01\xb6\x01\x00\x00\x00\x00\x00\x00\x00\x00\x0c\x00\x15\x00\x0e\x00\x00\x00\x47\x00\xcb\x01\x41\x00\x00\x00\xbd\x01\xbb\x01\x0c\x00\x9b\x01\x00\x00\x00\x00\x94\x00\x00\x00\x00\x00\xc0\x01\xbc\x01\x5b\x00\x00\x00\x00\x00\x4b\x00\x00\x00\xae\x01\x88\x01\x10\x00\xa9\x00\x00\x00\x00\x00\x00\x00\xbe\x01\x3f\x00\xba\x01\x00\x00\x00\x00\x00\x00\x15\x00\x80\x01\x00\x00\x0c\x00\x00\x00\xb9\x01\x0c\x00\xad\x01\x00\x00\xad\x01\x00\x00\xb8\x01\xaf\x01\xaa\x01\xa6\x01\x00\x00\xf8\xff\x00\x00\x7b\x01\x00\x00\x00\x00\x15\x00\x5c\x00\x4e\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
+happyActOffsets = HappyA# "\x2d\x02\x25\x02\x00\x00\x22\x02\x47\x01\x21\x02\x34\x02\x27\x02\x00\x00\x49\x02\x1f\x02\x1f\x02\x1f\x02\x1f\x02\x48\x02\x00\x00\x24\x02\x00\x00\x1c\x00\x19\x02\x19\x02\x00\x00\x46\x02\x20\x02\x41\x02\x15\x02\x15\x02\x3f\x02\x00\x00\x00\x00\x40\x02\x13\x02\x00\x00\x47\x01\x1d\x02\x00\x00\x10\x02\x00\x00\x1e\x02\x00\x00\x3d\x02\x7d\x00\x0e\x02\x3b\x02\x1a\x02\x38\x02\x00\x00\x0b\x02\x0b\x02\x0b\x02\x0b\x02\x0b\x02\x0b\x02\x0b\x02\x00\x00\x36\x02\x35\x02\x31\x02\x33\x02\x2c\x02\x2a\x02\x26\x02\x00\x00\x08\x02\x00\x00\xf6\x01\x00\x00\xf6\x01\xf6\x01\x10\x00\xf6\x01\x61\x00\x61\x00\xf6\x01\x10\x00\x17\x02\x00\x00\x00\x00\x00\x00\xa8\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf0\x01\x10\x00\xf0\x01\xf0\x01\xf3\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x06\x02\x00\x00\x00\x00\x1c\x02\xf9\xff\x61\x00\xe2\x01\x00\x00\x12\x02\x11\x02\x0f\x02\x0d\x02\x07\x02\x0c\x02\x00\x00\xde\x01\x0a\x02\x10\x00\x10\x00\xf9\x01\x0c\x00\x00\x00\xef\x01\x00\x00\xff\x01\xfc\x01\xfb\x01\xcb\x01\x0c\x00\xcc\x01\x61\x00\x00\x00\x00\x00\xea\x01\x0c\x01\xee\x01\xeb\x01\xec\x01\x00\x00\x10\x00\xbe\x01\x00\x00\xed\x01\x80\x00\x00\x00\x10\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x66\x01\x00\x00\x00\x00\x00\x00\xdd\x01\xd7\x01\xd4\x01\x00\x00\x00\x00\xf9\xff\x08\x00\x0c\x00\xbc\x01\xbc\x01\x61\x00\xdc\x01\x00\x00\x00\x00\x61\x00\xf9\xff\x61\x00\xa1\x00\xbb\x01\x00\x00\x00\x00\x00\x00\x00\x00\xbb\x01\xbe\x00\xc4\x01\xd6\x01\x0c\x00\x0c\x00\xce\x01\x00\x00\x00\x00\x00\x00\x64\x00\x00\x00\x00\x00\x82\x00\x00\x00\x00\x00\xd8\x01\xd5\x01\xd2\x01\x57\x00\xf9\xff\xaa\x01\xaa\x01\xba\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\xa9\x01\x00\x00\x00\x00\x00\x00\x00\x00\xc6\x01\xb6\x01\x00\x00\x00\x00\x00\x00\x00\x00\x0c\x00\xf9\xff\x12\x00\x00\x00\x4d\x00\xc7\x01\x00\x00\x47\x00\x00\x00\xb5\x01\xb3\x01\x0c\x00\x99\x01\x00\x00\x00\x00\x11\x00\x00\x00\x00\x00\x3d\x00\xc3\x01\xb7\x01\x68\x00\x00\x00\x00\x00\x8f\x00\x00\x00\xb0\x01\x87\x01\x10\x00\x9d\x00\x00\x00\x00\x00\x00\x00\xb8\x01\x8b\x00\xb4\x01\x00\x00\x00\x00\x00\x00\xf9\xff\x86\x01\x00\x00\x0c\x00\x00\x00\xb2\x01\x00\x00\x0c\x00\xa0\x01\x00\x00\xa0\x01\x00\x00\xb1\x01\xa8\x01\xae\x01\x9f\x01\x00\x00\x5b\x00\x00\x00\x75\x01\x00\x00\x00\x00\xf9\xff\x67\x00\x54\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
 
 happyGotoOffsets :: HappyAddr
-happyGotoOffsets = HappyA# "\x13\x00\x00\x00\x00\x00\x00\x00\x61\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\xac\x01\xab\x01\xa9\x01\xa8\x01\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x9f\x01\x03\x00\x00\x00\x00\x00\x96\x01\x00\x00\x9d\x01\x9c\x01\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x95\x01\x61\x00\x00\x00\x74\x01\x8d\x01\x00\x00\x64\x00\x00\x00\x00\x00\xaf\x00\x8b\x01\x00\x00\x38\x01\x00\x00\x00\x00\x7a\x01\x75\x01\x73\x01\x69\x01\x65\x01\x57\x01\x54\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4f\x01\x00\x00\x49\x01\x34\x01\xff\x01\x8c\x01\x4e\x01\x4d\x01\x6b\x00\xed\x01\x00\x00\x00\x00\x00\x00\x00\x00\x07\x02\x00\x00\x00\x00\x00\x00\x00\x00\x2d\x01\x2e\x01\xdb\x01\x78\x01\x2c\x01\x24\x01\x00\x00\x00\x00\x00\x00\x00\x00\xfc\x00\x00\x00\x00\x00\x00\x00\x00\x00\x70\x00\x3d\x01\x22\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xba\x00\x00\x00\xc9\x01\xb7\x01\x00\x00\x1e\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe8\x00\x15\x01\x0a\x00\x14\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x39\x00\x00\x00\xa5\x01\x23\x01\x00\x00\x00\x00\xf2\x00\x00\x00\x93\x01\x00\x00\x81\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x85\x00\x00\x00\x0c\x01\x55\x01\x1d\x01\xeb\x00\x00\x00\x00\x00\x00\x00\xd0\x00\x06\x00\xa5\x00\x00\x00\x7e\x00\x00\x00\x00\x00\xc7\x00\x00\x00\xc2\x00\x00\x00\x00\x00\x00\x00\xf5\x00\x35\x01\x00\x00\x00\x00\x00\x00\xed\x00\x00\x00\x00\x00\xcb\x00\x00\x00\x00\x00\xb6\x00\x00\x00\x00\x00\x00\x00\x45\x01\x12\x00\xe6\x00\xc9\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6f\x01\xc0\x00\x00\x00\x00\x00\xb2\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xec\x00\x05\x00\x86\x00\x00\x00\x3e\x01\x56\x01\x3e\x01\x00\x00\x00\x00\x00\x00\xe3\x00\x77\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa6\x00\x00\x00\x00\x00\x66\x01\x00\x00\x00\x00\x97\x00\x5d\x01\xf2\x00\x00\x00\x00\x00\x00\x00\x00\x00\x63\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x89\x00\x00\x00\xc4\x00\x00\x00\x44\x01\xbb\x00\x00\x00\x00\x00\x00\x00\xe4\xff\x00\x00\x00\x00\x00\x00\x00\x00\xdc\xff\xea\x00\x00\x00\x0f\x00\x00\x00\x00\x00\x07\x00\x23\x00\x0b\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
+happyGotoOffsets = HappyA# "\x13\x00\x00\x00\x00\x00\x00\x00\xbf\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa6\x01\xa5\x01\xa4\x01\xa3\x01\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\xa1\x01\x03\x00\x00\x00\x00\x00\x98\x01\x00\x00\x97\x01\x96\x01\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x8f\x01\xbf\x00\x00\x00\x6e\x01\x91\x01\x00\x00\x3e\x00\x00\x00\x00\x00\x05\x01\x83\x01\x00\x00\x5a\x01\x00\x00\x00\x00\x81\x01\x73\x01\x6f\x01\x69\x01\x5d\x01\x56\x01\x4e\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4d\x01\x00\x00\x4c\x01\x33\x01\x1b\x02\x85\x01\x5f\x01\x5e\x01\x93\x00\x09\x02\x00\x00\x00\x00\x00\x00\x00\x00\x23\x02\x00\x00\x00\x00\x00\x00\x00\x00\x2f\x01\x3b\x01\xf7\x01\x82\x01\x35\x01\x2a\x01\x00\x00\x00\x00\x00\x00\x00\x00\x02\x01\x00\x00\x00\x00\x00\x00\x00\x00\x69\x00\x57\x01\x28\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc0\x00\x00\x00\xe5\x01\xd3\x01\x00\x00\x37\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x27\x01\x25\x01\x77\x00\x2d\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe1\x00\x00\x00\xc1\x01\x23\x01\x00\x00\x00\x00\x0b\x00\x00\x00\xaf\x01\x00\x00\x9d\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x72\x00\x00\x00\x13\x01\x68\x01\x21\x01\x1b\x01\x00\x00\x00\x00\x00\x00\x09\x01\x06\x00\xf7\x00\x00\x00\x2f\x00\x00\x00\x00\x00\xf0\x00\x00\x00\x3c\x01\x00\x00\x00\x00\x00\x00\x01\x01\x3d\x01\x00\x00\x00\x00\x00\x00\xea\x00\x00\x00\x00\x00\xe9\x00\x00\x00\x00\x00\xd7\x00\x00\x00\x00\x00\x00\x00\x61\x01\x84\x00\x06\x01\x04\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8b\x01\xf2\x00\x00\x00\x00\x00\xe0\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xef\x00\x05\x00\xf3\x00\x00\x00\x4f\x01\x60\x01\x89\x00\x4f\x01\x00\x00\x00\x00\x00\x00\xdd\x00\x25\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4f\x01\x00\x00\x00\x00\xbc\x00\x00\x00\x00\x00\xcd\x00\x00\x00\x00\x00\xae\x00\x79\x01\x0b\x00\x00\x00\x00\x00\x00\x00\x00\x00\x94\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\xb5\x00\x00\x00\xca\x00\x00\x00\x9f\x00\x00\x00\xc6\x00\x00\x00\x00\x00\x00\x00\x5d\x00\x00\x00\x00\x00\x00\x00\x00\x00\x24\x00\xbb\x00\x00\x00\x16\x00\x00\x00\x00\x00\x07\x00\xad\x00\x0e\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
 
 happyDefActions :: HappyAddr
-happyDefActions = HappyA# "\xf4\xff\x00\x00\xfe\xff\x00\x00\xfa\xff\x7a\xff\x79\xff\x00\x00\xf3\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf6\xff\x00\x00\xf8\xff\xf1\xff\x00\x00\x7a\xff\x78\xff\x00\x00\xef\xff\x00\x00\x00\x00\x00\x00\x00\x00\xf7\xff\xf2\xff\x00\x00\x7a\xff\xf4\xff\xfb\xff\x00\x00\x9d\xff\x00\x00\xf5\xff\x9b\xff\xf0\xff\x00\x00\x00\x00\x00\x00\x00\x00\xe3\xff\x00\x00\xf9\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9c\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9a\xff\x00\x00\xe4\xff\x00\x00\xee\xff\x00\x00\xd1\xff\x00\x00\x00\x00\x00\x00\x00\x00\x99\xff\x00\x00\x00\x00\xc6\xff\xc5\xff\xca\xff\xdc\xff\xeb\xff\xe0\xff\xc4\xff\xdb\xff\xcc\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd8\xff\xda\xff\xfd\xff\xfc\xff\x96\xff\x98\xff\xea\xff\xc0\xff\x00\x00\x8c\xff\x00\x00\x00\x00\xbf\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd0\xff\xe6\xff\xd1\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xbe\xff\x00\x00\xa7\xff\x8b\xff\x00\x00\x00\x00\x00\x00\x00\x00\x99\xff\xe5\xff\xc7\xff\xc8\xff\x00\x00\x00\x00\x00\x00\x00\x00\xce\xff\xe1\xff\x00\x00\x00\x00\xe2\xff\x00\x00\x00\x00\xdd\xff\x00\x00\xd9\xff\x00\x00\xc9\xff\x95\xff\x97\xff\x00\x00\xac\xff\xb7\xff\xbb\xff\xaf\xff\xad\xff\xe9\xff\xb6\xff\xbc\xff\x92\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa6\xff\xc2\xff\x00\x00\x8c\xff\x00\x00\x00\x00\x8f\xff\xec\xff\xc3\xff\x94\xff\xcf\xff\xed\xff\x00\x00\x8e\xff\x00\x00\x00\x00\x00\x00\x00\x00\x8a\xff\xbd\xff\x86\xff\x00\x00\xb9\xff\x86\xff\x00\x00\xb5\xff\x84\xff\x91\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xde\xff\xd5\xff\xd4\xff\xd3\xff\xcd\xff\x00\x00\x00\x00\xd2\xff\xcb\xff\xce\xff\xd7\xff\x00\x00\x00\x00\xa5\xff\xb3\xff\xb1\xff\xb8\xff\x00\x00\x92\xff\x00\x00\xb4\xff\x00\x00\x7c\xff\x00\x00\xc1\xff\xae\xff\xe8\xff\x00\x00\x8f\xff\x93\xff\x8d\xff\x00\x00\x85\xff\xb0\xff\x88\xff\x00\x00\x00\x00\xba\xff\x83\xff\x82\xff\x90\xff\xaa\xff\x00\x00\x00\x00\x00\x00\xd6\xff\xdf\xff\xa4\xff\x81\xff\x00\x00\x00\x00\xa2\xff\x9f\xff\x7b\xff\x7f\xff\x00\x00\xa1\xff\x00\x00\xb2\xff\x7c\xff\x00\x00\xe7\xff\x87\xff\xa9\xff\x7c\xff\x00\x00\x7e\xff\x00\x00\x00\x00\x84\xff\x82\xff\x80\xff\xa8\xff\xab\xff\xa0\xff\x7f\xff\x00\x00\x00\x00\xa3\xff\x9e\xff\x7d\xff"#
+happyDefActions = HappyA# "\xf4\xff\x00\x00\xfe\xff\x00\x00\xfa\xff\x79\xff\x78\xff\x00\x00\xf3\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf6\xff\x00\x00\xf8\xff\xf1\xff\x00\x00\x79\xff\x77\xff\x00\x00\xef\xff\x00\x00\x00\x00\x00\x00\x00\x00\xf7\xff\xf2\xff\x00\x00\x79\xff\xf4\xff\xfb\xff\x00\x00\x9c\xff\x00\x00\xf5\xff\x9a\xff\xf0\xff\x00\x00\x00\x00\x00\x00\x00\x00\xe3\xff\x00\x00\xf9\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9b\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x99\xff\x00\x00\xe4\xff\x00\x00\xee\xff\x00\x00\xd1\xff\x00\x00\x00\x00\x00\x00\x00\x00\x98\xff\x00\x00\x00\x00\xc6\xff\xc5\xff\xca\xff\xdc\xff\xeb\xff\xe0\xff\xc4\xff\xdb\xff\xcc\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd8\xff\xda\xff\xfd\xff\xfc\xff\x95\xff\x97\xff\xea\xff\xc0\xff\x00\x00\x8b\xff\x00\x00\x00\x00\xbf\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd0\xff\xe6\xff\xd1\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xbe\xff\x00\x00\xa6\xff\x8a\xff\x00\x00\x00\x00\x00\x00\x00\x00\x98\xff\xe5\xff\xc7\xff\xc8\xff\x00\x00\x00\x00\x00\x00\x00\x00\xce\xff\xe1\xff\x00\x00\x00\x00\xe2\xff\x00\x00\x00\x00\xdd\xff\x00\x00\xd9\xff\x00\x00\xc9\xff\x94\xff\x96\xff\x00\x00\xab\xff\xb7\xff\xbb\xff\xae\xff\xac\xff\xe9\xff\xb6\xff\xbc\xff\x91\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa5\xff\xc2\xff\x00\x00\x8b\xff\x00\x00\x00\x00\x8e\xff\xec\xff\xc3\xff\x93\xff\xcf\xff\xed\xff\x00\x00\x8d\xff\x00\x00\x00\x00\x00\x00\x00\x00\x89\xff\xbd\xff\x85\xff\x00\x00\xb9\xff\x85\xff\x00\x00\xb5\xff\x83\xff\x90\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xde\xff\xd5\xff\xd4\xff\xd3\xff\xcd\xff\x00\x00\x00\x00\xd2\xff\xcb\xff\xce\xff\xd7\xff\x00\x00\x00\x00\xa4\xff\xb3\xff\xb0\xff\xb8\xff\x00\x00\x91\xff\x00\x00\xb4\xff\x00\x00\x7b\xff\x85\xff\x00\x00\xc1\xff\xad\xff\xe8\xff\x00\x00\x8e\xff\x92\xff\x8c\xff\x00\x00\x84\xff\xaf\xff\x00\x00\x87\xff\x00\x00\x00\x00\xba\xff\x82\xff\x81\xff\x8f\xff\xa9\xff\x00\x00\x00\x00\x00\x00\xd6\xff\xdf\xff\xa3\xff\x80\xff\x00\x00\x00\x00\xa1\xff\x9e\xff\x7a\xff\x7e\xff\x00\x00\xa0\xff\x00\x00\xb2\xff\x7b\xff\xb1\xff\x00\x00\xe7\xff\x86\xff\xa8\xff\x7b\xff\x00\x00\x7d\xff\x00\x00\x00\x00\x83\xff\x81\xff\x7f\xff\xa7\xff\xaa\xff\x9f\xff\x7e\xff\x00\x00\x00\x00\xa2\xff\x9d\xff\x7c\xff"#
 
 happyCheck :: HappyAddr
-happyCheck = HappyA# "\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x07\x00\x00\x00\x00\x00\x00\x00\x30\x00\x02\x00\x16\x00\x03\x00\x01\x00\x03\x00\x00\x00\x03\x00\x08\x00\x0b\x00\x03\x00\x33\x00\x0c\x00\x06\x00\x0a\x00\x0f\x00\x0c\x00\x11\x00\x07\x00\x0f\x00\x1a\x00\x11\x00\x12\x00\x00\x00\x1f\x00\x02\x00\x11\x00\x22\x00\x22\x00\x22\x00\x32\x00\x22\x00\x25\x00\x1d\x00\x25\x00\x24\x00\x2b\x00\x21\x00\x28\x00\x2d\x00\x22\x00\x34\x00\x34\x00\x34\x00\x34\x00\x32\x00\x2e\x00\x32\x00\x30\x00\x31\x00\x32\x00\x33\x00\x32\x00\x31\x00\x32\x00\x33\x00\x03\x00\x04\x00\x31\x00\x24\x00\x31\x00\x08\x00\x03\x00\x12\x00\x09\x00\x0c\x00\x15\x00\x08\x00\x0f\x00\x03\x00\x11\x00\x0c\x00\x03\x00\x16\x00\x0f\x00\x10\x00\x11\x00\x08\x00\x0c\x00\x0d\x00\x0e\x00\x0c\x00\x03\x00\x03\x00\x0f\x00\x16\x00\x11\x00\x03\x00\x01\x00\x04\x00\x05\x00\x0c\x00\x0c\x00\x0e\x00\x0e\x00\x00\x00\x0c\x00\x09\x00\x13\x00\x2c\x00\x00\x00\x32\x00\x31\x00\x32\x00\x33\x00\x04\x00\x0b\x00\x00\x00\x31\x00\x32\x00\x33\x00\x1b\x00\x1c\x00\x32\x00\x00\x00\x31\x00\x06\x00\x33\x00\x31\x00\x32\x00\x33\x00\x00\x00\x0c\x00\x01\x00\x0e\x00\x00\x00\x1a\x00\x27\x00\x31\x00\x31\x00\x33\x00\x33\x00\x1f\x00\x31\x00\x22\x00\x28\x00\x23\x00\x01\x00\x0d\x00\x26\x00\x27\x00\x02\x00\x23\x00\x2a\x00\x2b\x00\x2d\x00\x17\x00\x18\x00\x2f\x00\x23\x00\x31\x00\x2c\x00\x1f\x00\x00\x00\x00\x00\x22\x00\x02\x00\x15\x00\x2c\x00\x31\x00\x32\x00\x33\x00\x0c\x00\x00\x00\x2b\x00\x0f\x00\x0d\x00\x11\x00\x12\x00\x0c\x00\x0d\x00\x0e\x00\x01\x00\x0a\x00\x00\x00\x00\x00\x01\x00\x02\x00\x19\x00\x1d\x00\x00\x00\x0d\x00\x00\x00\x21\x00\x00\x00\x01\x00\x02\x00\x15\x00\x0d\x00\x15\x00\x24\x00\x02\x00\x15\x00\x0d\x00\x14\x00\x0d\x00\x00\x00\x0d\x00\x18\x00\x31\x00\x32\x00\x33\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x31\x00\x32\x00\x33\x00\x0d\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x01\x00\x02\x00\x30\x00\x23\x00\x02\x00\x19\x00\x02\x00\x00\x00\x00\x00\x01\x00\x02\x00\x0b\x00\x0d\x00\x2a\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x02\x00\x0d\x00\x0d\x00\x2f\x00\x17\x00\x18\x00\x05\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x0b\x00\x19\x00\x13\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x21\x00\x00\x00\x01\x00\x02\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x02\x00\x23\x00\x0d\x00\x30\x00\x31\x00\x2f\x00\x00\x00\x00\x00\x01\x00\x02\x00\x0d\x00\x0d\x00\x00\x00\x02\x00\x29\x00\x02\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x00\x00\x19\x00\x00\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x02\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x02\x00\x23\x00\x0d\x00\x16\x00\x0c\x00\x00\x00\x01\x00\x02\x00\x14\x00\x00\x00\x0d\x00\x0d\x00\x18\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x1c\x00\x0d\x00\x1e\x00\x00\x00\x00\x00\x19\x00\x00\x00\x23\x00\x1b\x00\x0d\x00\x0d\x00\x1e\x00\x00\x00\x01\x00\x02\x00\x1b\x00\x23\x00\x0d\x00\x1e\x00\x20\x00\x00\x00\x19\x00\x19\x00\x23\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x2e\x00\x00\x00\x17\x00\x00\x00\x20\x00\x33\x00\x00\x00\x1e\x00\x00\x00\x20\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x2e\x00\x0d\x00\x17\x00\x21\x00\x2d\x00\x33\x00\x2f\x00\x00\x00\x00\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x30\x00\x31\x00\x17\x00\x0d\x00\x26\x00\x06\x00\x00\x00\x00\x00\x08\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x00\x00\x00\x00\x17\x00\x00\x00\x00\x00\x32\x00\x04\x00\x09\x00\x01\x00\x31\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x02\x00\x33\x00\x17\x00\x04\x00\x04\x00\x01\x00\x04\x00\x01\x00\x15\x00\x15\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x31\x00\x17\x00\x17\x00\x04\x00\x15\x00\x14\x00\x06\x00\x31\x00\x0d\x00\x04\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x02\x00\x01\x00\x17\x00\x0d\x00\x03\x00\x33\x00\x1a\x00\x31\x00\x06\x00\x03\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x31\x00\x14\x00\x17\x00\x0b\x00\x01\x00\x31\x00\x15\x00\x06\x00\x04\x00\x0d\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x10\x00\x31\x00\x17\x00\x04\x00\x33\x00\x00\x00\x01\x00\x02\x00\x05\x00\x01\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x13\x00\x0a\x00\x02\x00\x0d\x00\x01\x00\x17\x00\x10\x00\x11\x00\x09\x00\x31\x00\x05\x00\x02\x00\x02\x00\x17\x00\x02\x00\x02\x00\x33\x00\x19\x00\x33\x00\x0b\x00\x25\x00\x31\x00\x31\x00\x08\x00\x05\x00\x05\x00\x02\x00\x05\x00\x02\x00\x02\x00\x01\x00\x21\x00\x02\x00\x01\x00\x31\x00\x31\x00\x22\x00\x03\x00\x31\x00\x06\x00\x01\x00\x25\x00\x07\x00\x31\x00\x31\x00\x31\x00\x05\x00\x29\x00\x02\x00\x1a\x00\x31\x00\x28\x00\xff\xff\xff\xff\x28\x00\xff\xff\x31\x00\x24\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x31\x00\xff\xff\xff\xff\x35\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"#
+happyCheck = HappyA# "\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x07\x00\x00\x00\x11\x00\x00\x00\x01\x00\x02\x00\x00\x00\x03\x00\x02\x00\x09\x00\x01\x00\x03\x00\x08\x00\x03\x00\x03\x00\x01\x00\x0c\x00\x06\x00\x0a\x00\x0f\x00\x0c\x00\x11\x00\x13\x00\x0f\x00\x1a\x00\x11\x00\x12\x00\x07\x00\x1f\x00\x00\x00\x15\x00\x22\x00\x22\x00\x22\x00\x31\x00\x22\x00\x25\x00\x1d\x00\x25\x00\x00\x00\x2b\x00\x21\x00\x24\x00\x2d\x00\x2c\x00\x34\x00\x34\x00\x34\x00\x34\x00\x32\x00\x2e\x00\x32\x00\x30\x00\x31\x00\x32\x00\x33\x00\x03\x00\x31\x00\x32\x00\x33\x00\x32\x00\x08\x00\x09\x00\x09\x00\x23\x00\x0c\x00\x03\x00\x04\x00\x0f\x00\x31\x00\x11\x00\x08\x00\x03\x00\x2c\x00\x23\x00\x0c\x00\x30\x00\x08\x00\x0f\x00\x03\x00\x11\x00\x0c\x00\x03\x00\x2c\x00\x0f\x00\x10\x00\x11\x00\x08\x00\x0c\x00\x0d\x00\x0e\x00\x0c\x00\x03\x00\x27\x00\x0f\x00\x03\x00\x11\x00\x00\x00\x03\x00\x03\x00\x08\x00\x0c\x00\x31\x00\x32\x00\x33\x00\x16\x00\x00\x00\x0c\x00\x0c\x00\x0e\x00\x0e\x00\x00\x00\x31\x00\x32\x00\x33\x00\x13\x00\x1b\x00\x1c\x00\x31\x00\x32\x00\x33\x00\x04\x00\x0b\x00\x1a\x00\x00\x00\x31\x00\x06\x00\x33\x00\x31\x00\x32\x00\x33\x00\x22\x00\x0c\x00\x32\x00\x0e\x00\x0d\x00\x33\x00\x1f\x00\x31\x00\x00\x00\x22\x00\x01\x00\x2d\x00\x15\x00\x31\x00\x31\x00\x33\x00\x33\x00\x1f\x00\x2b\x00\x0b\x00\x28\x00\x23\x00\x16\x00\x01\x00\x26\x00\x27\x00\x16\x00\x22\x00\x2a\x00\x2b\x00\x0c\x00\x0d\x00\x0e\x00\x2f\x00\x00\x00\x31\x00\x02\x00\x02\x00\x31\x00\x32\x00\x33\x00\x0c\x00\x00\x00\x15\x00\x0f\x00\x2f\x00\x11\x00\x12\x00\x28\x00\x00\x00\x32\x00\x02\x00\x20\x00\x00\x00\x32\x00\x0d\x00\x04\x00\x05\x00\x1d\x00\x00\x00\x01\x00\x02\x00\x21\x00\x00\x00\x01\x00\x02\x00\x2e\x00\x31\x00\x32\x00\x33\x00\x24\x00\x33\x00\x0d\x00\x14\x00\x17\x00\x18\x00\x0d\x00\x18\x00\x31\x00\x32\x00\x33\x00\x21\x00\x00\x00\x01\x00\x02\x00\x24\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x23\x00\x0d\x00\x30\x00\x31\x00\x23\x00\x21\x00\x00\x00\x01\x00\x02\x00\x00\x00\x12\x00\x01\x00\x15\x00\x15\x00\x00\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x30\x00\x31\x00\x0d\x00\x23\x00\x00\x00\x01\x00\x02\x00\x0d\x00\x00\x00\x02\x00\x30\x00\x02\x00\x00\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x0a\x00\x19\x00\x05\x00\x23\x00\x00\x00\x01\x00\x02\x00\x0d\x00\x0b\x00\x2f\x00\x2f\x00\x2a\x00\x00\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x00\x00\x19\x00\x00\x00\x23\x00\x00\x00\x01\x00\x02\x00\x0d\x00\x02\x00\x02\x00\x29\x00\x02\x00\x00\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x00\x00\x19\x00\x00\x00\x23\x00\x00\x00\x01\x00\x02\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x01\x00\x02\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x16\x00\x19\x00\x14\x00\x23\x00\x0d\x00\x0d\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x02\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x1b\x00\x1c\x00\x23\x00\x1e\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x23\x00\x00\x00\x01\x00\x02\x00\x0d\x00\x1e\x00\x0c\x00\x20\x00\x00\x00\x00\x00\x1b\x00\x0d\x00\x0d\x00\x1e\x00\x0d\x00\x00\x00\x19\x00\x0b\x00\x23\x00\x00\x00\x2d\x00\x0d\x00\x2f\x00\x19\x00\x19\x00\x00\x00\x01\x00\x02\x00\x1b\x00\x17\x00\x18\x00\x1e\x00\x20\x00\x00\x00\x00\x00\x00\x00\x23\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x2e\x00\x0d\x00\x17\x00\x00\x00\x0d\x00\x33\x00\x26\x00\x06\x00\x00\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x08\x00\x00\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x32\x00\x09\x00\x01\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x04\x00\x02\x00\x17\x00\x15\x00\x04\x00\x31\x00\x04\x00\x01\x00\x33\x00\x04\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x01\x00\x15\x00\x17\x00\x0d\x00\x15\x00\x14\x00\x31\x00\x04\x00\x06\x00\x17\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x04\x00\x02\x00\x17\x00\x01\x00\x31\x00\x0d\x00\x06\x00\x33\x00\x1a\x00\x03\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x0b\x00\x15\x00\x17\x00\x14\x00\x31\x00\x31\x00\x01\x00\x31\x00\x04\x00\x06\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x10\x00\x0d\x00\x17\x00\x31\x00\x33\x00\x04\x00\x01\x00\x05\x00\x13\x00\x0a\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x02\x00\x01\x00\x17\x00\x31\x00\x09\x00\x02\x00\x05\x00\x02\x00\x02\x00\x33\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x02\x00\x19\x00\x17\x00\x31\x00\x0b\x00\x00\x00\x01\x00\x02\x00\x33\x00\x31\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x25\x00\x08\x00\x05\x00\x0d\x00\x05\x00\x17\x00\x10\x00\x11\x00\x02\x00\x05\x00\x02\x00\x02\x00\x01\x00\x17\x00\x21\x00\x31\x00\x02\x00\x01\x00\x31\x00\x22\x00\x31\x00\x25\x00\x03\x00\x31\x00\x06\x00\x31\x00\x01\x00\x07\x00\x29\x00\x31\x00\x02\x00\x28\x00\x05\x00\x1a\x00\x28\x00\x31\x00\x24\x00\x31\x00\xff\xff\xff\xff\xff\xff\x31\x00\x35\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"#
 
 happyTable :: HappyAddr
-happyTable = HappyA# "\x00\x00\x06\x00\x06\x00\x06\x00\x06\x00\x76\x00\x76\x00\x76\x00\x17\x00\x76\x00\x5e\x00\xf8\x00\x0d\x01\xf9\x00\x84\xff\x9c\x00\xeb\x00\xed\x00\x76\x00\x55\x00\x9d\x00\x5f\x00\x03\x00\x12\x01\x9e\x00\x04\x00\x56\x00\x9f\x00\x57\x00\xa0\x00\x7a\xff\x58\x00\x77\x00\x59\x00\x5a\x00\xf8\x00\xbd\x00\xf9\x00\x7b\x00\xbe\x00\x78\x00\x06\x01\x84\xff\x06\x01\x07\x01\x5b\x00\x07\x01\xfa\x00\xed\x00\x5c\x00\x91\x00\xb4\x00\xd3\x00\x18\x00\x22\x00\x15\x00\x07\x00\x15\x01\xa1\x00\x08\x01\xa2\x00\x03\x00\x5d\x00\x5e\x00\x5d\x00\x03\x00\x5d\x00\x5e\x00\x9c\x00\xe7\x00\x03\x00\x14\x01\x03\x00\x9d\x00\x9c\x00\x89\x00\xbc\x00\x9e\x00\x8a\x00\x9d\x00\x9f\x00\xfc\x00\xa0\x00\x9e\x00\x9c\x00\x0b\x01\x9f\x00\xeb\x00\xa0\x00\x9d\x00\xfd\x00\x14\x01\xfe\x00\x9e\x00\xfc\x00\xfc\x00\x9f\x00\x84\xff\xa0\x00\x64\x00\xeb\x00\x08\x00\x09\x00\xfd\x00\xfd\x00\xfe\x00\xfe\x00\x5e\x00\x65\x00\x28\x00\xff\x00\xbd\x00\x76\x00\x5d\x00\x03\x00\x5d\x00\x5e\x00\x2f\x00\x5f\x00\xae\x00\x03\x00\x5d\x00\x5e\x00\x66\x00\x67\x00\x84\xff\xae\x00\x03\x00\xcb\x00\x5e\x00\x03\x00\x5d\x00\x5e\x00\x76\x00\xcc\x00\xeb\x00\xcd\x00\x4b\x00\x77\x00\x29\x00\x03\x00\x03\x00\x5e\x00\x5e\x00\x30\x00\x03\x00\x78\x00\x60\x00\x31\x00\x02\x01\x05\x01\x32\x00\x33\x00\xf4\x00\xaf\x00\x34\x00\x35\x00\x79\x00\xc3\x00\xc4\x00\x36\x00\xaf\x00\x03\x00\xe3\x00\xbd\x00\x4b\x00\xf8\x00\xbe\x00\xf9\x00\xb3\x00\xb0\x00\x03\x00\x5d\x00\x5e\x00\x87\x00\x2c\x00\xbf\x00\x58\x00\x61\x00\x59\x00\x5a\x00\xcc\x00\xf3\x00\xcd\x00\xb2\x00\x2d\x00\x6a\x00\x92\x00\x93\x00\x94\x00\xb3\x00\x5b\x00\x4b\x00\xda\x00\x4b\x00\x5c\x00\x92\x00\x93\x00\x94\x00\xf1\x00\x95\x00\xb3\x00\xfa\x00\xd1\x00\xb3\x00\xce\x00\xac\x00\xe2\x00\x4b\x00\x95\x00\x6c\x00\x03\x00\x5d\x00\x5e\x00\x96\x00\x97\x00\x02\x01\x99\x00\x03\x00\x5d\x00\x5e\x00\x61\x00\x9a\x00\x96\x00\x97\x00\x04\x01\x99\x00\x92\x00\x93\x00\x94\x00\xd8\x00\x9a\x00\xd2\x00\xb5\x00\xa2\x00\x4b\x00\x92\x00\x93\x00\x94\x00\x88\x00\x95\x00\xad\x00\xc6\x00\xc7\x00\xc8\x00\x92\x00\x93\x00\x94\x00\x61\x00\x95\x00\xda\x00\xc3\x00\xc4\x00\x8f\x00\x96\x00\x97\x00\xe4\x00\x99\x00\x95\x00\x88\x00\xb7\x00\xc9\x00\x9a\x00\x96\x00\x97\x00\xee\x00\x99\x00\xf5\x00\x92\x00\x93\x00\x94\x00\x9a\x00\x96\x00\x97\x00\xdf\x00\x99\x00\x4b\x00\x92\x00\x93\x00\x94\x00\x9a\x00\x95\x00\xf6\x00\x0c\x01\xdc\x00\xb8\x00\x92\x00\x93\x00\x94\x00\x61\x00\x95\x00\x88\x00\x74\x00\x7d\x00\x7e\x00\x96\x00\x97\x00\xba\x00\x99\x00\x95\x00\x7f\x00\x90\x00\x83\x00\x9a\x00\x96\x00\x97\x00\x98\x00\x99\x00\x6a\x00\x92\x00\x93\x00\x94\x00\x9a\x00\x96\x00\x97\x00\xa7\x00\x99\x00\x4b\x00\x92\x00\x93\x00\x94\x00\x9a\x00\x95\x00\x84\x00\x3f\x00\x92\x00\x93\x00\x94\x00\x6b\x00\x6d\x00\x61\x00\x95\x00\x6c\x00\x4b\x00\x4b\x00\x42\x00\x96\x00\xde\x00\x95\x00\x99\x00\x37\x00\x4b\x00\x75\x00\x38\x00\x9a\x00\xe5\x00\x61\x00\x61\x00\x99\x00\x4b\x00\x4c\x00\x4d\x00\xd4\x00\x9a\x00\xb9\x00\x99\x00\xe7\x00\x39\x00\x62\x00\x67\x00\x9a\x00\x3a\x00\x4e\x00\x4f\x00\xf3\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x03\x01\x3b\x00\x53\x00\x3c\x00\xe7\x00\xe9\x00\x4b\x00\x0b\x00\x3d\x00\x0c\x00\x4e\x00\x4f\x00\xcf\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xe8\x00\x80\x00\x53\x00\xf5\x00\x0d\x00\xe9\x00\x0e\x00\x2b\x00\x4b\x00\x25\x00\x4e\x00\x4f\x00\xc4\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xf6\x00\xf7\x00\x53\x00\x68\x00\x26\x00\x21\x00\x1b\x00\x1c\x00\x1e\x00\x16\x00\x4e\x00\x4f\x00\xc5\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x0e\x00\x0f\x00\x53\x00\x10\x00\x11\x00\x5d\x00\x10\x01\x0f\x01\x11\x01\x03\x00\x4e\x00\x4f\x00\x82\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x12\x01\x5e\x00\x53\x00\x89\xff\x0a\x01\x0c\x01\x00\x01\x01\x01\xb3\x00\xb3\x00\x4e\x00\x4f\x00\xa9\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x03\x00\xf0\x00\x53\x00\x89\xff\xb3\x00\xc1\x00\xf1\x00\x03\x00\xd1\x00\xd6\x00\x4e\x00\x4f\x00\xaa\x00\x51\x00\x52\x00\x81\x00\x4c\x00\x4d\x00\xd7\x00\xd8\x00\x53\x00\xde\x00\xdc\x00\x5e\x00\xe2\x00\x03\x00\xe1\x00\xb7\x00\x4e\x00\x4f\x00\x82\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x03\x00\xc1\x00\x53\x00\xc2\x00\xce\x00\x03\x00\xb3\x00\x8d\x00\x8c\x00\x8e\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x90\x00\x03\x00\x53\x00\xa4\x00\x5e\x00\x4b\x00\x4c\x00\x4d\x00\xa5\x00\xa6\x00\x4e\x00\x4f\x00\x69\x00\x51\x00\x52\x00\xa7\x00\xa9\x00\xac\x00\x4e\x00\x6f\x00\x53\x00\x85\x00\x52\x00\x70\x00\x03\x00\x71\x00\x72\x00\x73\x00\x53\x00\x74\x00\x7c\x00\x5e\x00\x7d\x00\x5e\x00\x88\x00\x44\x00\x03\x00\x03\x00\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x3f\x00\x41\x00\x42\x00\x37\x00\x03\x00\x03\x00\x2b\x00\x24\x00\x03\x00\x25\x00\x21\x00\x28\x00\x1e\x00\x03\x00\x03\x00\x03\x00\x1b\x00\x20\x00\x13\x00\x15\x00\x03\x00\x1a\x00\x00\x00\x00\x00\x14\x00\x00\x00\x03\x00\x06\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x03\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
+happyTable = HappyA# "\x00\x00\x06\x00\x06\x00\x06\x00\x06\x00\x76\x00\x76\x00\x76\x00\x17\x00\x76\x00\x7b\x00\xc6\x00\xc7\x00\xc8\x00\xfa\x00\x9c\x00\xfb\x00\xbc\x00\x05\x01\x55\x00\x9d\x00\xef\x00\x03\x00\xed\x00\x9e\x00\x04\x00\x56\x00\x9f\x00\x57\x00\xa0\x00\xc9\x00\x58\x00\x77\x00\x59\x00\x5a\x00\x79\xff\xbd\x00\xae\x00\xb3\x00\xbe\x00\x78\x00\x09\x01\x03\x00\x09\x01\x0a\x01\x5b\x00\x0a\x01\xae\x00\xef\x00\x5c\x00\xfc\x00\xb4\x00\xbd\x00\x18\x00\x22\x00\x15\x00\x07\x00\x18\x01\xa1\x00\x0b\x01\xa2\x00\x03\x00\x5d\x00\x5e\x00\x9c\x00\x03\x00\x5d\x00\x5e\x00\x5d\x00\x9d\x00\x04\x01\x28\x00\xaf\x00\x9e\x00\x9c\x00\xe8\x00\x9f\x00\x03\x00\xa0\x00\x9d\x00\x9c\x00\xe4\x00\xaf\x00\x9e\x00\x10\x01\x9d\x00\x9f\x00\xfe\x00\xa0\x00\x9e\x00\x9c\x00\xb0\x00\x9f\x00\xed\x00\xa0\x00\x9d\x00\xff\x00\x17\x01\x00\x01\x9e\x00\x64\x00\x29\x00\x9f\x00\xdc\x00\xa0\x00\x76\x00\xfe\x00\xfe\x00\xdd\x00\x65\x00\x03\x00\x5d\x00\x5e\x00\x83\xff\x76\x00\xff\x00\xff\x00\x00\x01\x00\x01\x5e\x00\x03\x00\x5d\x00\x5e\x00\x01\x01\x66\x00\x67\x00\x03\x00\x5d\x00\x5e\x00\x2f\x00\x5f\x00\x77\x00\x76\x00\x03\x00\xcb\x00\x5e\x00\x03\x00\x5d\x00\x5e\x00\x78\x00\xcc\x00\x83\xff\xcd\x00\xda\x00\x15\x01\xbd\x00\x03\x00\x5e\x00\xbe\x00\xed\x00\x79\x00\xb3\x00\x03\x00\x03\x00\x5e\x00\x5e\x00\x30\x00\xbf\x00\x5f\x00\x91\x00\x31\x00\x0e\x01\xb2\x00\x32\x00\x33\x00\x83\xff\xd3\x00\x34\x00\x35\x00\xcc\x00\xf5\x00\xcd\x00\x36\x00\xfa\x00\x03\x00\xfb\x00\xf6\x00\x03\x00\x5d\x00\x5e\x00\x87\x00\x4b\x00\xb3\x00\x58\x00\xe8\x00\x59\x00\x5a\x00\x60\x00\xfa\x00\x5d\x00\xfb\x00\xe9\x00\x6a\x00\x83\xff\x08\x01\x08\x00\x09\x00\x5b\x00\x92\x00\x93\x00\x94\x00\x5c\x00\x92\x00\x93\x00\x94\x00\x06\x01\x03\x00\x5d\x00\x5e\x00\x17\x01\xeb\x00\x95\x00\xac\x00\xc3\x00\xc4\x00\x95\x00\x6c\x00\x03\x00\x5d\x00\x5e\x00\xf7\x00\x92\x00\x93\x00\x94\x00\xfc\x00\x96\x00\x97\x00\x05\x01\x99\x00\x96\x00\x97\x00\x07\x01\x99\x00\x9a\x00\x95\x00\xf8\x00\x0f\x01\x9a\x00\xf7\x00\x92\x00\x93\x00\x94\x00\x4b\x00\x89\x00\xed\x00\xf3\x00\x8a\x00\x4b\x00\x96\x00\x97\x00\xe5\x00\x99\x00\x95\x00\xf8\x00\xf9\x00\xce\x00\x9a\x00\x92\x00\x93\x00\x94\x00\x61\x00\x2c\x00\xd1\x00\xd8\x00\xd2\x00\x4b\x00\x96\x00\x97\x00\xf0\x00\x99\x00\x95\x00\x2d\x00\xb3\x00\x8f\x00\x9a\x00\x92\x00\x93\x00\x94\x00\x61\x00\x88\x00\xda\x00\xdd\x00\xad\x00\x4b\x00\x96\x00\x97\x00\xe0\x00\x99\x00\x95\x00\xb8\x00\xb5\x00\x88\x00\x9a\x00\x92\x00\x93\x00\x94\x00\x61\x00\xa2\x00\x74\x00\x7d\x00\x7e\x00\x4b\x00\x96\x00\x97\x00\xba\x00\x99\x00\x95\x00\x6a\x00\xb7\x00\x7f\x00\x9a\x00\x92\x00\x93\x00\x94\x00\x61\x00\x83\x00\x4b\x00\x92\x00\x93\x00\x94\x00\x96\x00\x97\x00\x98\x00\x99\x00\x95\x00\x84\x00\x90\x00\x6b\x00\x9a\x00\xe3\x00\x95\x00\x6c\x00\x6d\x00\x42\x00\x37\x00\x92\x00\x93\x00\x94\x00\x96\x00\x97\x00\xa7\x00\x99\x00\x38\x00\x4b\x00\x96\x00\xdf\x00\x9a\x00\x99\x00\x95\x00\x39\x00\x4b\x00\x4b\x00\x9a\x00\x92\x00\x93\x00\x94\x00\x61\x00\x0b\x00\x3f\x00\x0c\x00\x4b\x00\x3a\x00\xe6\x00\x61\x00\x61\x00\x99\x00\x95\x00\x3b\x00\x75\x00\x88\x00\x9a\x00\x3c\x00\x0d\x00\xb9\x00\x0e\x00\x62\x00\x67\x00\x4b\x00\x4c\x00\x4d\x00\xd4\x00\xc3\x00\xc4\x00\x99\x00\xe9\x00\x3d\x00\x4b\x00\x2b\x00\x9a\x00\x4b\x00\x4e\x00\x4f\x00\xf5\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xea\x00\x80\x00\x53\x00\x25\x00\x68\x00\xeb\x00\x26\x00\x21\x00\x1b\x00\x1c\x00\x4e\x00\x4f\x00\xcf\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x1e\x00\x16\x00\x53\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x5d\x00\x12\x01\x14\x01\x4e\x00\x4f\x00\xc4\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x13\x01\x15\x01\x53\x00\xb3\x00\x88\xff\x03\x00\x0d\x01\x0f\x01\x5e\x00\x02\x01\x4e\x00\x4f\x00\xc5\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x03\x01\xb3\x00\x53\x00\xd1\x00\xb3\x00\xc1\x00\x03\x00\x88\xff\xf3\x00\xf2\x00\x4e\x00\x4f\x00\x82\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xd6\x00\xd7\x00\x53\x00\xd8\x00\x03\x00\xdf\x00\xe2\x00\x5e\x00\xe3\x00\xb7\x00\x4e\x00\x4f\x00\xa9\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xc2\x00\xb3\x00\x53\x00\xc1\x00\x03\x00\x03\x00\xce\x00\x03\x00\x8c\x00\x8d\x00\x4e\x00\x4f\x00\xaa\x00\x51\x00\x52\x00\x81\x00\x4c\x00\x4d\x00\x90\x00\x8e\x00\x53\x00\x03\x00\x5e\x00\xa4\x00\xa6\x00\xa5\x00\xa7\x00\xa9\x00\x4e\x00\x4f\x00\x82\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xac\x00\x6f\x00\x53\x00\x03\x00\x70\x00\x72\x00\x71\x00\x73\x00\x74\x00\x5e\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x7c\x00\x7d\x00\x53\x00\x03\x00\x88\x00\x4b\x00\x4c\x00\x4d\x00\x5e\x00\x03\x00\x4e\x00\x4f\x00\x69\x00\x51\x00\x52\x00\x44\x00\x45\x00\x46\x00\x4e\x00\x47\x00\x53\x00\x85\x00\x52\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x3f\x00\x53\x00\x41\x00\x03\x00\x42\x00\x37\x00\x03\x00\x2b\x00\x03\x00\x28\x00\x24\x00\x03\x00\x25\x00\x03\x00\x21\x00\x1e\x00\x20\x00\x03\x00\x13\x00\x1a\x00\x1b\x00\x15\x00\x14\x00\x03\x00\x06\x00\x03\x00\x00\x00\x00\x00\x00\x00\x03\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
 
-happyReduceArr = array (1, 135) [
+happyReduceArr = array (1, 136) [
 	(1 , happyReduce_1),
 	(2 , happyReduce_2),
 	(3 , happyReduce_3),
@@ -489,7 +489,8 @@ happyReduceArr = array (1, 135) [
 	(132 , happyReduce_132),
 	(133 , happyReduce_133),
 	(134 , happyReduce_134),
-	(135 , happyReduce_135)
+	(135 , happyReduce_135),
+	(136 , happyReduce_136)
 	]
 
 happy_n_terms = 54 :: Int
@@ -1206,8 +1207,21 @@ happyReduction_77 (happy_x_5 `HappyStk`
 		 (T happy_var_2 happy_var_4
 	) `HappyStk` happyRest}}
 
-happyReduce_78 = happySpecReduce_3 28# happyReduction_78
-happyReduction_78 happy_x_3
+happyReduce_78 = happyReduce 5# 28# happyReduction_78
+happyReduction_78 (happy_x_5 `HappyStk`
+	happy_x_4 `HappyStk`
+	happy_x_3 `HappyStk`
+	happy_x_2 `HappyStk`
+	happy_x_1 `HappyStk`
+	happyRest)
+	 = case happyOut29 happy_x_2 of { happy_var_2 -> 
+	case happyOut51 happy_x_4 of { happy_var_4 -> 
+	happyIn32
+		 (V happy_var_2 (reverse happy_var_4)
+	) `HappyStk` happyRest}}
+
+happyReduce_79 = happySpecReduce_3 28# happyReduction_79
+happyReduction_79 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut32 happy_x_1 of { happy_var_1 -> 
@@ -1216,8 +1230,8 @@ happyReduction_78 happy_x_3
 		 (S happy_var_1 happy_var_3
 	)}}
 
-happyReduce_79 = happyReduce 4# 28# happyReduction_79
-happyReduction_79 (happy_x_4 `HappyStk`
+happyReduce_80 = happyReduce 4# 28# happyReduction_80
+happyReduction_80 (happy_x_4 `HappyStk`
 	happy_x_3 `HappyStk`
 	happy_x_2 `HappyStk`
 	happy_x_1 `HappyStk`
@@ -1227,15 +1241,15 @@ happyReduction_79 (happy_x_4 `HappyStk`
 		 (FV (reverse happy_var_3)
 	) `HappyStk` happyRest}
 
-happyReduce_80 = happySpecReduce_1 28# happyReduction_80
-happyReduction_80 happy_x_1
+happyReduce_81 = happySpecReduce_1 28# happyReduction_81
+happyReduction_81 happy_x_1
 	 =  case happyOut31 happy_x_1 of { happy_var_1 -> 
 	happyIn32
 		 (happy_var_1
 	)}
 
-happyReduce_81 = happySpecReduce_3 29# happyReduction_81
-happyReduction_81 happy_x_3
+happyReduce_82 = happySpecReduce_3 29# happyReduction_82
+happyReduction_82 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut33 happy_x_1 of { happy_var_1 -> 
@@ -1244,22 +1258,22 @@ happyReduction_81 happy_x_3
 		 (C happy_var_1 happy_var_3
 	)}}
 
-happyReduce_82 = happySpecReduce_1 29# happyReduction_82
-happyReduction_82 happy_x_1
+happyReduce_83 = happySpecReduce_1 29# happyReduction_83
+happyReduction_83 happy_x_1
 	 =  case happyOut32 happy_x_1 of { happy_var_1 -> 
 	happyIn33
 		 (happy_var_1
 	)}
 
-happyReduce_83 = happySpecReduce_1 30# happyReduction_83
-happyReduction_83 happy_x_1
+happyReduce_84 = happySpecReduce_1 30# happyReduction_84
+happyReduction_84 happy_x_1
 	 =  case happyOut5 happy_x_1 of { happy_var_1 -> 
 	happyIn34
 		 (KS happy_var_1
 	)}
 
-happyReduce_84 = happyReduce 7# 30# happyReduction_84
-happyReduction_84 (happy_x_7 `HappyStk`
+happyReduce_85 = happyReduce 7# 30# happyReduction_85
+happyReduction_85 (happy_x_7 `HappyStk`
 	happy_x_6 `HappyStk`
 	happy_x_5 `HappyStk`
 	happy_x_4 `HappyStk`
@@ -1273,8 +1287,8 @@ happyReduction_84 (happy_x_7 `HappyStk`
 		 (KP (reverse happy_var_3) happy_var_5
 	) `HappyStk` happyRest}}
 
-happyReduce_85 = happySpecReduce_3 31# happyReduction_85
-happyReduction_85 happy_x_3
+happyReduce_86 = happySpecReduce_3 31# happyReduction_86
+happyReduction_86 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut38 happy_x_1 of { happy_var_1 -> 
@@ -1283,8 +1297,8 @@ happyReduction_85 happy_x_3
 		 (Ass happy_var_1 happy_var_3
 	)}}
 
-happyReduce_86 = happySpecReduce_3 32# happyReduction_86
-happyReduction_86 happy_x_3
+happyReduce_87 = happySpecReduce_3 32# happyReduction_87
+happyReduction_87 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut55 happy_x_1 of { happy_var_1 -> 
@@ -1293,8 +1307,8 @@ happyReduction_86 happy_x_3
 		 (Cas (reverse happy_var_1) happy_var_3
 	)}}
 
-happyReduce_87 = happySpecReduce_3 33# happyReduction_87
-happyReduction_87 happy_x_3
+happyReduce_88 = happySpecReduce_3 33# happyReduction_88
+happyReduction_88 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut52 happy_x_1 of { happy_var_1 -> 
@@ -1303,23 +1317,23 @@ happyReduction_87 happy_x_3
 		 (Var (reverse happy_var_1) (reverse happy_var_3)
 	)}}
 
-happyReduce_88 = happySpecReduce_1 34# happyReduction_88
-happyReduction_88 happy_x_1
+happyReduce_89 = happySpecReduce_1 34# happyReduction_89
+happyReduction_89 happy_x_1
 	 =  case happyOut4 happy_x_1 of { happy_var_1 -> 
 	happyIn38
 		 (L happy_var_1
 	)}
 
-happyReduce_89 = happySpecReduce_2 34# happyReduction_89
-happyReduction_89 happy_x_2
+happyReduce_90 = happySpecReduce_2 34# happyReduction_90
+happyReduction_90 happy_x_2
 	happy_x_1
 	 =  case happyOut6 happy_x_2 of { happy_var_2 -> 
 	happyIn38
 		 (LV happy_var_2
 	)}
 
-happyReduce_90 = happySpecReduce_3 35# happyReduction_90
-happyReduction_90 happy_x_3
+happyReduce_91 = happySpecReduce_3 35# happyReduction_91
+happyReduction_91 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut4 happy_x_1 of { happy_var_1 -> 
@@ -1328,8 +1342,8 @@ happyReduction_90 happy_x_3
 		 (A happy_var_1 happy_var_3
 	)}}
 
-happyReduce_91 = happyReduce 5# 35# happyReduction_91
-happyReduction_91 (happy_x_5 `HappyStk`
+happyReduce_92 = happyReduce 5# 35# happyReduction_92
+happyReduction_92 (happy_x_5 `HappyStk`
 	happy_x_4 `HappyStk`
 	happy_x_3 `HappyStk`
 	happy_x_2 `HappyStk`
@@ -1342,8 +1356,8 @@ happyReduction_91 (happy_x_5 `HappyStk`
 		 (AB happy_var_1 happy_var_3 happy_var_5
 	) `HappyStk` happyRest}}}
 
-happyReduce_92 = happyReduce 4# 36# happyReduction_92
-happyReduction_92 (happy_x_4 `HappyStk`
+happyReduce_93 = happyReduce 4# 36# happyReduction_93
+happyReduction_93 (happy_x_4 `HappyStk`
 	happy_x_3 `HappyStk`
 	happy_x_2 `HappyStk`
 	happy_x_1 `HappyStk`
@@ -1354,21 +1368,21 @@ happyReduction_92 (happy_x_4 `HappyStk`
 		 (PC happy_var_2 (reverse happy_var_3)
 	) `HappyStk` happyRest}}
 
-happyReduce_93 = happySpecReduce_1 36# happyReduction_93
-happyReduction_93 happy_x_1
+happyReduce_94 = happySpecReduce_1 36# happyReduction_94
+happyReduction_94 happy_x_1
 	 =  case happyOut4 happy_x_1 of { happy_var_1 -> 
 	happyIn40
 		 (PV happy_var_1
 	)}
 
-happyReduce_94 = happySpecReduce_1 36# happyReduction_94
-happyReduction_94 happy_x_1
+happyReduce_95 = happySpecReduce_1 36# happyReduction_95
+happyReduction_95 happy_x_1
 	 =  happyIn40
 		 (PW
 	)
 
-happyReduce_95 = happySpecReduce_3 36# happyReduction_95
-happyReduction_95 happy_x_3
+happyReduce_96 = happySpecReduce_3 36# happyReduction_96
+happyReduction_96 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut54 happy_x_2 of { happy_var_2 -> 
@@ -1376,15 +1390,15 @@ happyReduction_95 happy_x_3
 		 (PR happy_var_2
 	)}
 
-happyReduce_96 = happySpecReduce_1 36# happyReduction_96
-happyReduction_96 happy_x_1
+happyReduce_97 = happySpecReduce_1 36# happyReduction_97
+happyReduction_97 happy_x_1
 	 =  case happyOut6 happy_x_1 of { happy_var_1 -> 
 	happyIn40
 		 (PI happy_var_1
 	)}
 
-happyReduce_97 = happySpecReduce_3 37# happyReduction_97
-happyReduction_97 happy_x_3
+happyReduce_98 = happySpecReduce_3 37# happyReduction_98
+happyReduction_98 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut38 happy_x_1 of { happy_var_1 -> 
@@ -1393,13 +1407,13 @@ happyReduction_97 happy_x_3
 		 (PAss happy_var_1 happy_var_3
 	)}}
 
-happyReduce_98 = happySpecReduce_0 38# happyReduction_98
-happyReduction_98  =  happyIn42
+happyReduce_99 = happySpecReduce_0 38# happyReduction_99
+happyReduction_99  =  happyIn42
 		 ([]
 	)
 
-happyReduce_99 = happySpecReduce_3 38# happyReduction_99
-happyReduction_99 happy_x_3
+happyReduce_100 = happySpecReduce_3 38# happyReduction_100
+happyReduction_100 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut42 happy_x_1 of { happy_var_1 -> 
@@ -1408,13 +1422,13 @@ happyReduction_99 happy_x_3
 		 (flip (:) happy_var_1 happy_var_2
 	)}}
 
-happyReduce_100 = happySpecReduce_0 39# happyReduction_100
-happyReduction_100  =  happyIn43
+happyReduce_101 = happySpecReduce_0 39# happyReduction_101
+happyReduction_101  =  happyIn43
 		 ([]
 	)
 
-happyReduce_101 = happySpecReduce_3 39# happyReduction_101
-happyReduction_101 happy_x_3
+happyReduce_102 = happySpecReduce_3 39# happyReduction_102
+happyReduction_102 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut43 happy_x_1 of { happy_var_1 -> 
@@ -1423,20 +1437,20 @@ happyReduction_101 happy_x_3
 		 (flip (:) happy_var_1 happy_var_2
 	)}}
 
-happyReduce_102 = happySpecReduce_0 40# happyReduction_102
-happyReduction_102  =  happyIn44
+happyReduce_103 = happySpecReduce_0 40# happyReduction_103
+happyReduction_103  =  happyIn44
 		 ([]
 	)
 
-happyReduce_103 = happySpecReduce_1 40# happyReduction_103
-happyReduction_103 happy_x_1
+happyReduce_104 = happySpecReduce_1 40# happyReduction_104
+happyReduction_104 happy_x_1
 	 =  case happyOut15 happy_x_1 of { happy_var_1 -> 
 	happyIn44
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_104 = happySpecReduce_3 40# happyReduction_104
-happyReduction_104 happy_x_3
+happyReduce_105 = happySpecReduce_3 40# happyReduction_105
+happyReduction_105 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut15 happy_x_1 of { happy_var_1 -> 
@@ -1445,13 +1459,13 @@ happyReduction_104 happy_x_3
 		 ((:) happy_var_1 happy_var_3
 	)}}
 
-happyReduce_105 = happySpecReduce_0 41# happyReduction_105
-happyReduction_105  =  happyIn45
+happyReduce_106 = happySpecReduce_0 41# happyReduction_106
+happyReduction_106  =  happyIn45
 		 ([]
 	)
 
-happyReduce_106 = happySpecReduce_2 41# happyReduction_106
-happyReduction_106 happy_x_2
+happyReduce_107 = happySpecReduce_2 41# happyReduction_107
+happyReduction_107 happy_x_2
 	happy_x_1
 	 =  case happyOut45 happy_x_1 of { happy_var_1 -> 
 	case happyOut29 happy_x_2 of { happy_var_2 -> 
@@ -1459,13 +1473,13 @@ happyReduction_106 happy_x_2
 		 (flip (:) happy_var_1 happy_var_2
 	)}}
 
-happyReduce_107 = happySpecReduce_0 42# happyReduction_107
-happyReduction_107  =  happyIn46
+happyReduce_108 = happySpecReduce_0 42# happyReduction_108
+happyReduction_108  =  happyIn46
 		 ([]
 	)
 
-happyReduce_108 = happySpecReduce_2 42# happyReduction_108
-happyReduction_108 happy_x_2
+happyReduce_109 = happySpecReduce_2 42# happyReduction_109
+happyReduction_109 happy_x_2
 	happy_x_1
 	 =  case happyOut46 happy_x_1 of { happy_var_1 -> 
 	case happyOut17 happy_x_2 of { happy_var_2 -> 
@@ -1473,20 +1487,20 @@ happyReduction_108 happy_x_2
 		 (flip (:) happy_var_1 happy_var_2
 	)}}
 
-happyReduce_109 = happySpecReduce_0 43# happyReduction_109
-happyReduction_109  =  happyIn47
+happyReduce_110 = happySpecReduce_0 43# happyReduction_110
+happyReduction_110  =  happyIn47
 		 ([]
 	)
 
-happyReduce_110 = happySpecReduce_1 43# happyReduction_110
-happyReduction_110 happy_x_1
+happyReduce_111 = happySpecReduce_1 43# happyReduction_111
+happyReduction_111 happy_x_1
 	 =  case happyOut35 happy_x_1 of { happy_var_1 -> 
 	happyIn47
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_111 = happySpecReduce_3 43# happyReduction_111
-happyReduction_111 happy_x_3
+happyReduce_112 = happySpecReduce_3 43# happyReduction_112
+happyReduction_112 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut35 happy_x_1 of { happy_var_1 -> 
@@ -1495,20 +1509,20 @@ happyReduction_111 happy_x_3
 		 ((:) happy_var_1 happy_var_3
 	)}}
 
-happyReduce_112 = happySpecReduce_0 44# happyReduction_112
-happyReduction_112  =  happyIn48
+happyReduce_113 = happySpecReduce_0 44# happyReduction_113
+happyReduction_113  =  happyIn48
 		 ([]
 	)
 
-happyReduce_113 = happySpecReduce_1 44# happyReduction_113
-happyReduction_113 happy_x_1
+happyReduce_114 = happySpecReduce_1 44# happyReduction_114
+happyReduction_114 happy_x_1
 	 =  case happyOut39 happy_x_1 of { happy_var_1 -> 
 	happyIn48
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_114 = happySpecReduce_3 44# happyReduction_114
-happyReduction_114 happy_x_3
+happyReduce_115 = happySpecReduce_3 44# happyReduction_115
+happyReduction_115 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut39 happy_x_1 of { happy_var_1 -> 
@@ -1517,20 +1531,20 @@ happyReduction_114 happy_x_3
 		 ((:) happy_var_1 happy_var_3
 	)}}
 
-happyReduce_115 = happySpecReduce_0 45# happyReduction_115
-happyReduction_115  =  happyIn49
+happyReduce_116 = happySpecReduce_0 45# happyReduction_116
+happyReduction_116  =  happyIn49
 		 ([]
 	)
 
-happyReduce_116 = happySpecReduce_1 45# happyReduction_116
-happyReduction_116 happy_x_1
+happyReduce_117 = happySpecReduce_1 45# happyReduction_117
+happyReduction_117 happy_x_1
 	 =  case happyOut30 happy_x_1 of { happy_var_1 -> 
 	happyIn49
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_117 = happySpecReduce_3 45# happyReduction_117
-happyReduction_117 happy_x_3
+happyReduce_118 = happySpecReduce_3 45# happyReduction_118
+happyReduction_118 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut30 happy_x_1 of { happy_var_1 -> 
@@ -1539,20 +1553,20 @@ happyReduction_117 happy_x_3
 		 ((:) happy_var_1 happy_var_3
 	)}}
 
-happyReduce_118 = happySpecReduce_0 46# happyReduction_118
-happyReduction_118  =  happyIn50
+happyReduce_119 = happySpecReduce_0 46# happyReduction_119
+happyReduction_119  =  happyIn50
 		 ([]
 	)
 
-happyReduce_119 = happySpecReduce_1 46# happyReduction_119
-happyReduction_119 happy_x_1
+happyReduce_120 = happySpecReduce_1 46# happyReduction_120
+happyReduction_120 happy_x_1
 	 =  case happyOut36 happy_x_1 of { happy_var_1 -> 
 	happyIn50
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_120 = happySpecReduce_3 46# happyReduction_120
-happyReduction_120 happy_x_3
+happyReduce_121 = happySpecReduce_3 46# happyReduction_121
+happyReduction_121 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut36 happy_x_1 of { happy_var_1 -> 
@@ -1561,13 +1575,13 @@ happyReduction_120 happy_x_3
 		 ((:) happy_var_1 happy_var_3
 	)}}
 
-happyReduce_121 = happySpecReduce_0 47# happyReduction_121
-happyReduction_121  =  happyIn51
+happyReduce_122 = happySpecReduce_0 47# happyReduction_122
+happyReduction_122  =  happyIn51
 		 ([]
 	)
 
-happyReduce_122 = happySpecReduce_2 47# happyReduction_122
-happyReduction_122 happy_x_2
+happyReduce_123 = happySpecReduce_2 47# happyReduction_123
+happyReduction_123 happy_x_2
 	happy_x_1
 	 =  case happyOut51 happy_x_1 of { happy_var_1 -> 
 	case happyOut31 happy_x_2 of { happy_var_2 -> 
@@ -1575,13 +1589,13 @@ happyReduction_122 happy_x_2
 		 (flip (:) happy_var_1 happy_var_2
 	)}}
 
-happyReduce_123 = happySpecReduce_0 48# happyReduction_123
-happyReduction_123  =  happyIn52
+happyReduce_124 = happySpecReduce_0 48# happyReduction_124
+happyReduction_124  =  happyIn52
 		 ([]
 	)
 
-happyReduce_124 = happySpecReduce_2 48# happyReduction_124
-happyReduction_124 happy_x_2
+happyReduce_125 = happySpecReduce_2 48# happyReduction_125
+happyReduction_125 happy_x_2
 	happy_x_1
 	 =  case happyOut52 happy_x_1 of { happy_var_1 -> 
 	case happyOut5 happy_x_2 of { happy_var_2 -> 
@@ -1589,20 +1603,20 @@ happyReduction_124 happy_x_2
 		 (flip (:) happy_var_1 happy_var_2
 	)}}
 
-happyReduce_125 = happySpecReduce_0 49# happyReduction_125
-happyReduction_125  =  happyIn53
+happyReduce_126 = happySpecReduce_0 49# happyReduction_126
+happyReduction_126  =  happyIn53
 		 ([]
 	)
 
-happyReduce_126 = happySpecReduce_1 49# happyReduction_126
-happyReduction_126 happy_x_1
+happyReduce_127 = happySpecReduce_1 49# happyReduction_127
+happyReduction_127 happy_x_1
 	 =  case happyOut37 happy_x_1 of { happy_var_1 -> 
 	happyIn53
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_127 = happySpecReduce_3 49# happyReduction_127
-happyReduction_127 happy_x_3
+happyReduce_128 = happySpecReduce_3 49# happyReduction_128
+happyReduction_128 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut37 happy_x_1 of { happy_var_1 -> 
@@ -1611,20 +1625,20 @@ happyReduction_127 happy_x_3
 		 ((:) happy_var_1 happy_var_3
 	)}}
 
-happyReduce_128 = happySpecReduce_0 50# happyReduction_128
-happyReduction_128  =  happyIn54
+happyReduce_129 = happySpecReduce_0 50# happyReduction_129
+happyReduction_129  =  happyIn54
 		 ([]
 	)
 
-happyReduce_129 = happySpecReduce_1 50# happyReduction_129
-happyReduction_129 happy_x_1
+happyReduce_130 = happySpecReduce_1 50# happyReduction_130
+happyReduction_130 happy_x_1
 	 =  case happyOut41 happy_x_1 of { happy_var_1 -> 
 	happyIn54
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_130 = happySpecReduce_3 50# happyReduction_130
-happyReduction_130 happy_x_3
+happyReduce_131 = happySpecReduce_3 50# happyReduction_131
+happyReduction_131 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut41 happy_x_1 of { happy_var_1 -> 
@@ -1633,13 +1647,13 @@ happyReduction_130 happy_x_3
 		 ((:) happy_var_1 happy_var_3
 	)}}
 
-happyReduce_131 = happySpecReduce_0 51# happyReduction_131
-happyReduction_131  =  happyIn55
+happyReduce_132 = happySpecReduce_0 51# happyReduction_132
+happyReduction_132  =  happyIn55
 		 ([]
 	)
 
-happyReduce_132 = happySpecReduce_2 51# happyReduction_132
-happyReduction_132 happy_x_2
+happyReduce_133 = happySpecReduce_2 51# happyReduction_133
+happyReduction_133 happy_x_2
 	happy_x_1
 	 =  case happyOut55 happy_x_1 of { happy_var_1 -> 
 	case happyOut40 happy_x_2 of { happy_var_2 -> 
@@ -1647,20 +1661,20 @@ happyReduction_132 happy_x_2
 		 (flip (:) happy_var_1 happy_var_2
 	)}}
 
-happyReduce_133 = happySpecReduce_0 52# happyReduction_133
-happyReduction_133  =  happyIn56
+happyReduce_134 = happySpecReduce_0 52# happyReduction_134
+happyReduction_134  =  happyIn56
 		 ([]
 	)
 
-happyReduce_134 = happySpecReduce_1 52# happyReduction_134
-happyReduction_134 happy_x_1
+happyReduce_135 = happySpecReduce_1 52# happyReduction_135
+happyReduction_135 happy_x_1
 	 =  case happyOut4 happy_x_1 of { happy_var_1 -> 
 	happyIn56
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_135 = happySpecReduce_3 52# happyReduction_135
-happyReduction_135 happy_x_3
+happyReduce_136 = happySpecReduce_3 52# happyReduction_136
+happyReduction_136 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut4 happy_x_1 of { happy_var_1 -> 
@@ -1739,7 +1753,7 @@ happyReturn1 = \a tks -> (returnM) a
 
 pCanon tks = happyThen (happyParse 0# tks) (\x -> happyReturn (happyOut7 x))
 
-happySeq = happyDoSeq -- H
+happySeq = happyDontSeq
 
 returnM :: a -> Err a
 returnM = return
@@ -1753,7 +1767,7 @@ happyError ts =
 
 myLexer = tokens
 {-# LINE 1 "GenericTemplate.hs" #-}
--- $Id: ParGFC.hs,v 1.5 2004/12/02 17:13:17 bringert Exp $
+-- $Id: ParGFC.hs,v 1.6 2005/01/11 16:06:15 aarne Exp $
 
 
 
diff --git a/src/GF/Canon/PrintGFC.hs b/src/GF/Canon/PrintGFC.hs
index 3e6ddc88e..d88ffe3a4 100644
--- a/src/GF/Canon/PrintGFC.hs
+++ b/src/GF/Canon/PrintGFC.hs
@@ -258,6 +258,7 @@ instance Print Term where
    R assigns -> prPrec i 2 (concatD [doc (showString "{") , prt 0 assigns , doc (showString "}")])
    P term label -> prPrec i 1 (concatD [prt 2 term , doc (showString ".") , prt 0 label])
    T ctype cases -> prPrec i 1 (concatD [doc (showString "table") , prt 0 ctype , doc (showString "{") , prt 0 cases , doc (showString "}")])
+   V ctype terms -> prPrec i 1 (concatD [doc (showString "table") , prt 0 ctype , doc (showString "[") , prt 2 terms , doc (showString "]")])
    S term0 term -> prPrec i 1 (concatD [prt 1 term0 , doc (showString "!") , prt 2 term])
    C term0 term -> prPrec i 0 (concatD [prt 0 term0 , doc (showString "++") , prt 1 term])
    FV terms -> prPrec i 1 (concatD [doc (showString "variants") , doc (showString "{") , prt 2 terms , doc (showString "}")])
diff --git a/src/GF/Canon/Share.hs b/src/GF/Canon/Share.hs
index 63e12436a..f482505b0 100644
--- a/src/GF/Canon/Share.hs
+++ b/src/GF/Canon/Share.hs
@@ -1,4 +1,4 @@
-module Share (shareModule, OptSpec, basicOpt, fullOpt) where
+module Share (shareModule, OptSpec, basicOpt, fullOpt, valOpt) where
 
 import AbsGFC
 import Ident
@@ -13,8 +13,10 @@ import qualified Modules as M
 
 type OptSpec = [Integer] ---
 doOptFactor opt = elem 2 opt
+doOptValues opt = elem 3 opt
 basicOpt = []
 fullOpt = [2]
+valOpt = [3]
 
 shareModule :: OptSpec -> (Ident, CanonModInfo) -> (Ident, CanonModInfo)
 shareModule opt (i,m) = case m of
@@ -30,6 +32,7 @@ shareInfo _ i = i
 shareOpt :: OptSpec -> Term -> Term
 shareOpt opt 
   | doOptFactor opt = share . factor 0
+  | doOptValues opt = values    
   | otherwise = share
 
 -- we need no counter to create new variable names, since variables are 
@@ -114,3 +117,7 @@ replace old new trm = case trm of
      R _ -> True
      _ -> False
 
+values :: Term -> Term
+values t = case t of
+  T ty cs  -> V ty [values t | Cas _ t <- cs] -- assumes proper order
+  _ -> C.composSafeOp values t
diff --git a/src/GF/Canon/SkelGFC.hs b/src/GF/Canon/SkelGFC.hs
index 2459500b5..d61c841ff 100644
--- a/src/GF/Canon/SkelGFC.hs
+++ b/src/GF/Canon/SkelGFC.hs
@@ -146,6 +146,7 @@ transTerm x = case x of
   R assigns  -> failure x
   P term label  -> failure x
   T ctype cases  -> failure x
+  V ctype terms  -> failure x
   S term0 term  -> failure x
   C term0 term  -> failure x
   FV terms  -> failure x
@@ -158,6 +159,7 @@ transTokn :: Tokn -> Result
 transTokn x = case x of
   KS str  -> failure x
   KP strs variants  -> failure x
+  KM str  -> failure x
 
 
 transAssign :: Assign -> Result
diff --git a/src/GF/Canon/TestGFC.hs b/src/GF/Canon/TestGFC.hs
index ee4175610..0ee7c8ebf 100644
--- a/src/GF/Canon/TestGFC.hs
+++ b/src/GF/Canon/TestGFC.hs
@@ -18,22 +18,28 @@ type ParseFun a = [Token] -> Err a
 
 myLLexer = myLexer
 
-runFile :: (Print a, Show a) => ParseFun a -> FilePath -> IO ()
-runFile p f = readFile f >>= run p
+type Verbosity = Int
 
-run :: (Print a, Show a) => ParseFun a -> String -> IO ()
-run p s = case (p (myLLexer s)) of
-           Bad s    -> do  putStrLn "\nParse Failed...\n"
+putStrV :: Verbosity -> String -> IO ()
+putStrV v s = if v > 1 then putStrLn s else return ()
+
+runFile :: (Print a, Show a) => Verbosity -> ParseFun a -> FilePath -> IO ()
+runFile v p f = putStrLn f >> readFile f >>= run v p
+
+run :: (Print a, Show a) => Verbosity -> ParseFun a -> String -> IO ()
+run v p s = let ts = myLLexer s in case p ts of
+           Bad s    -> do  putStrLn "\nParse              Failed...\n"
+                           putStrV v "Tokens:"
+                           putStrV v $ show ts
                            putStrLn s
            Ok  tree -> do putStrLn "\nParse Successful!"
-                          putStrLn $ "\n[Abstract Syntax]\n\n" ++ show tree
-                          putStrLn $ "\n[Linearized tree]\n\n" ++ printTree tree
+                          putStrV v $ "\n[Abstract Syntax]\n\n" ++ show tree
+                          putStrV v $ "\n[Linearized tree]\n\n" ++ printTree tree
 
 
 main :: IO ()
 main = do args <- getArgs
           case args of
-            []  -> hGetContents stdin >>= run pCanon
-            [f] -> runFile pCanon f
-            _   -> do progName <- getProgName
-                      putStrLn $ progName ++ ": excess arguments."
+            [] -> hGetContents stdin >>= run 2 pCanon
+            "-s":fs -> mapM_ (runFile 0 pCanon) fs
+            fs -> mapM_ (runFile 2 pCanon) fs
diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs
index b320a46f1..a540caca5 100644
--- a/src/GF/Compile/Compile.hs
+++ b/src/GF/Compile/Compile.hs
@@ -252,9 +252,12 @@ generateModuleCode :: Options -> InitPath -> SourceModule -> IOE GFC.CanonModule
 generateModuleCode opts path minfo@(name,info) = do
   let pname = prefixPathName path (prt name)
   minfo0     <- ioeErr $ redModInfo minfo
-  minfo'     <- return $ if optim 
-                then shareModule fullOpt minfo0   -- parametrization and sharing
-                else shareModule basicOpt minfo0  -- sharing only
+  minfo'     <- return $ 
+    if optim 
+    then shareModule fullOpt minfo0   -- parametrization and sharing
+    else if values                    
+    then shareModule valOpt minfo0     -- tables as courses-of-values
+    else shareModule basicOpt minfo0  -- sharing only
 
   -- for resource, also emit gfr
   case info of
@@ -279,6 +282,7 @@ generateModuleCode opts path minfo@(name,info) = do
    nomulti = not $ oElem makeMulti opts
    emit  = oElem emitCode opts && not (oElem notEmitCode opts)
    optim = oElem optimizeCanon opts
+   values = oElem optimizeValues opts
 
 -- for old GF: sort into modules, write files, compile as usual
 
diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs
index 12baa43f2..55390c390 100644
--- a/src/GF/Compile/GrammarToCanon.hs
+++ b/src/GF/Compile/GrammarToCanon.hs
@@ -198,6 +198,10 @@ redCTerm t = case t of
     ps' <- mapM redPatt ps
     ts' <- mapM redCTerm ts
     return $ G.T ty' $ map (uncurry G.Cas) $ zip (map singleton ps') ts'
+  V ty ts     -> do
+    ty' <- redCType ty
+    ts' <- mapM redCTerm ts
+    return $ G.V ty' ts'
   S u v -> liftM2 G.S (redCTerm u) (redCTerm v)
   K s   -> return $ G.K (G.KS s)
   EInt i -> return $ G.EInt $ toInteger i
diff --git a/src/GF/Compile/Optimize.hs b/src/GF/Compile/Optimize.hs
index 61ff8de32..d379a2ecd 100644
--- a/src/GF/Compile/Optimize.hs
+++ b/src/GF/Compile/Optimize.hs
@@ -188,6 +188,7 @@ evalPrintname gr c ppr lin =
      Abs _ b   -> oneBranch b
      R   (r:_) -> oneBranch $ snd $ snd r
      T _ (c:_) -> oneBranch $ snd c
+     V _ (c:_) -> oneBranch c
      FV  (t:_) -> oneBranch t
      C x y     -> C (oneBranch x) (oneBranch y)
      S x _     -> oneBranch x
diff --git a/src/GF/Grammar/Compute.hs b/src/GF/Grammar/Compute.hs
index 5573e5e4e..b31c7a4a0 100644
--- a/src/GF/Grammar/Compute.hs
+++ b/src/GF/Grammar/Compute.hs
@@ -101,6 +101,17 @@ computeTerm gr = comp where
 
          FV ccs -> mapM (\c -> comp g (S c v')) ccs >>= returnC . FV
 
+         V ptyp ts -> do
+           vs <- allParamValues gr ptyp
+           ps <- mapM term2patt vs
+           let cc = zip ps ts
+           case v' of
+             FV vs -> mapM (\c -> comp g (S t' c)) vs >>= returnC . FV
+             _ -> case matchPattern cc v' of
+               Ok (c,g') -> comp (g' ++ g) c
+               _ | isCan v' -> prtBad ("missing case" +++ prt v' +++ "in") t 
+               _ -> return $ S t' v' -- if v' is not canonical
+
          T _ cc -> case v' of
 	   FV vs -> mapM (\c -> comp g (S t' c)) vs >>= returnC . FV
            _ -> case matchPattern cc v' of
@@ -204,7 +215,8 @@ computeTerm gr = comp where
            ts   <- mapM (\ (c,g') -> comp (g' ++ g) c) sts
            ps   <- mapM term2patt vs
            let ps' = ps --- PT ptyp (head ps) : tail ps
-           return $ T (TComp ptyp) (zip ps' ts)
+           return $ --- V ptyp ts -- to save space, just course of values
+                    T (TComp ptyp) (zip ps' ts)
          _ -> do
            cs' <- mapM (compBranch g) cs
            return $ T i cs'  -- happens with variable types
diff --git a/src/GF/Grammar/Grammar.hs b/src/GF/Grammar/Grammar.hs
index a2978d6b3..0f8e4256e 100644
--- a/src/GF/Grammar/Grammar.hs
+++ b/src/GF/Grammar/Grammar.hs
@@ -77,6 +77,7 @@ data Term =
  
  | Table Term Term      -- table type:  P => A
  | T TInfo [Case]       -- table:       table {p => c ; ...}
+ | V Type [Term]        -- table given as course of values: table T [c1 ; ... ; cn]
  | S Term Term          -- selection:   t ! p
 
  | Let LocalDef Term    -- local definition: let {t : T = a} in b
diff --git a/src/GF/Grammar/Macros.hs b/src/GF/Grammar/Macros.hs
index 8b9f825b5..6769e44cf 100644
--- a/src/GF/Grammar/Macros.hs
+++ b/src/GF/Grammar/Macros.hs
@@ -588,6 +588,12 @@ composOp co trm =
      do cc' <- mapPairListM (co . snd) cc
         i'  <- changeTableType co i
         return (T i' cc')
+
+   V ty vs ->
+     do ty' <- co ty
+        vs' <- mapM co vs
+        return (V ty' vs')
+
    Let (x,(mt,a)) b -> 
      do a'  <- co a
         mt' <- case mt of
diff --git a/src/GF/Infra/Option.hs b/src/GF/Infra/Option.hs
index 3b78839f3..89b0700a1 100644
--- a/src/GF/Infra/Option.hs
+++ b/src/GF/Infra/Option.hs
@@ -163,6 +163,7 @@ doTrace      = iOpt "tr"
 noCPU        = iOpt "nocpu"
 doCompute    = iOpt "c"
 optimizeCanon = iOpt "opt"
+optimizeValues = iOpt "val"
 stripQualif   = iOpt "strip"
 nostripQualif = iOpt "nostrip"
 showAll      = iOpt "all"
diff --git a/src/GF/Shell/ShellCommands.hs b/src/GF/Shell/ShellCommands.hs
index a3e5d3b94..dda54e1c9 100644
--- a/src/GF/Shell/ShellCommands.hs
+++ b/src/GF/Shell/ShellCommands.hs
@@ -134,7 +134,7 @@ testValidFlag st co f x = case f of
 
 optionsOfCommand :: Command -> ([String],[String])
 optionsOfCommand co = case co of
-  CImport _ -> both "old v s opt src retain nocf nocheckcirc cflexer noemit o"
+  CImport _ -> both "old v s opt val src retain nocf nocheckcirc cflexer noemit o"
                     "abs cnc res path"
   CRemoveLanguage _ -> none
   CEmptyState -> none
diff --git a/src/GF/Source/AbsGF.hs b/src/GF/Source/AbsGF.hs
index 0a14d2e98..5a144f20f 100644
--- a/src/GF/Source/AbsGF.hs
+++ b/src/GF/Source/AbsGF.hs
@@ -167,6 +167,7 @@ data Exp =
  | EQCons Ident Ident
  | EApp Exp Exp
  | ETable [Case]
+ | EVTable Exp [Exp]
  | ETTable Exp [Case]
  | ECase Exp [Case]
  | EVariants [Exp]
diff --git a/src/GF/Source/GF.cf b/src/GF/Source/GF.cf
index d6170a6e7..98eeb7498 100644
--- a/src/GF/Source/GF.cf
+++ b/src/GF/Source/GF.cf
@@ -160,6 +160,7 @@ EQCons.    Exp3 ::= "[" Ident "." Ident "]" ;  -- qualified constant
 EApp.      Exp2 ::= Exp2 Exp3 ;
 ETable.    Exp2 ::= "table" "{" [Case] "}" ;
 ETTable.   Exp2 ::= "table" Exp4 "{" [Case] "}" ;
+EVTable.   Exp2 ::= "table" Exp4 "[" [Exp] "]" ;
 ECase.     Exp2 ::= "case" Exp "of" "{" [Case] "}" ;
 EVariants. Exp2 ::= "variants" "{" [Exp] "}" ;
 EPre.      Exp2 ::= "pre" "{" Exp ";" [Altern] "}" ;
diff --git a/src/GF/Source/GrammarToSource.hs b/src/GF/Source/GrammarToSource.hs
index c05bd6d5f..1f4fa3888 100644
--- a/src/GF/Source/GrammarToSource.hs
+++ b/src/GF/Source/GrammarToSource.hs
@@ -129,6 +129,7 @@ trt trm = case trm of
     T (TComp ty) cc -> P.ETTable (trt ty) (map trCase cc)
     T (TWild ty) cc -> P.ETTable (trt ty) (map trCase cc)
     T _ cc -> P.ETable (map trCase cc)
+    V ty cc -> P.EVTable (trt ty) (map trt cc)
 
     Table x v -> P.ETType (trt x) (trt v)
     S f x -> P.ESelect  (trt f) (trt x)
diff --git a/src/GF/Source/LexGF.hs b/src/GF/Source/LexGF.hs
index cda4582f0..3888a59f2 100644
--- a/src/GF/Source/LexGF.hs
+++ b/src/GF/Source/LexGF.hs
@@ -1,9 +1,8 @@
-{-# OPTIONS -fglasgow-exts -cpp #-}
+{-# OPTIONS -cpp #-}
 {-# LINE 3 "LexGF.x" #-}
 module LexGF where
 
 import ErrM
-import SharedString
 
 #if __GLASGOW_HASKELL__ >= 503
 import Data.Array
@@ -13,39 +12,31 @@ import Data.Array.Base (unsafeAt)
 import Array
 import Char (ord)
 #endif
-#if __GLASGOW_HASKELL__ >= 503
-import GHC.Exts
-#else
-import GlaExts
-#endif
-alex_base :: AlexAddr
-alex_base = AlexA# "\x01\x00\x15\x00\x39\x00\x3a\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x44\x00\x45\x00\x1b\x00\x1c\x00\x1d\x00\x42\x00\x00\x00\x26\x00\x13\x00\x27\x00\x00\x00\x2c\x00\x2d\x00\x9c\x00\x6c\x01\x00\x00\x17\x01\xe7\x01\xd5\x00\x33\x00"#
+alex_base :: Array Int Int
+alex_base = listArray (0,27) [1,21,57,58,24,25,26,0,68,69,27,28,29,66,0,38,19,39,0,44,45,156,364,0,279,487,213,51]
 
-alex_table :: AlexAddr
-alex_table = AlexA# "\x00\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x0d\x00\x0e\x00\x18\x00\xff\xff\x0e\x00\xff\xff\xff\xff\x13\x00\x0e\x00\x0e\x00\x0f\x00\x11\x00\x0e\x00\x05\x00\x0e\x00\x0e\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x0e\x00\x0e\x00\x0e\x00\x10\x00\x0e\x00\x0e\x00\x0e\x00\x04\x00\xff\xff\xff\xff\x02\x00\x02\x00\x09\x00\x09\x00\x09\x00\x0a\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0e\x00\x0e\x00\x0e\x00\x12\x00\x12\x00\x00\x00\x00\x00\x0e\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0e\x00\x0e\x00\x0e\x00\xff\xff\x0e\x00\xff\xff\x0d\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0c\x00\x0e\x00\x0e\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x06\x00\x07\x00\x16\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x19\x00\xff\xff\x00\x00\x00\x00\x16\x00\x19\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x19\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x19\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x19\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x1a\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x00\x00\x00\x00\x00\x00\x00\x00\x16\x00\x00\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x1a\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x00\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
+alex_table :: Array Int Int
+alex_table = listArray (0,742) [0,-1,-1,-1,-1,-1,-1,-1,-1,-1,13,13,13,13,13,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,13,14,24,-1,14,-1,-1,19,14,14,15,17,14,5,14,14,27,27,27,27,27,27,27,27,27,27,14,14,14,16,14,14,14,4,-1,-1,2,2,9,9,9,10,13,13,13,13,13,14,14,14,18,18,0,0,14,0,0,0,0,14,14,14,-1,14,-1,13,27,27,27,27,27,27,27,27,27,27,0,0,0,0,9,8,0,0,0,0,0,0,0,0,0,12,14,14,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,6,7,22,0,0,0,0,0,0,0,0,22,22,22,22,22,22,22,22,22,22,0,0,-1,0,0,0,0,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,25,-1,0,0,22,25,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,25,0,0,0,0,0,0,0,23,0,0,0,0,0,0,0,0,0,25,0,0,0,0,0,25,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,26,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,0,0,0,0,0,0,0,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,0,0,0,0,22,0,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,23,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,26,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,0,22,22,22,22,22,22,22,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
 
-alex_check :: AlexAddr
-alex_check = AlexA# "\xff\xff\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x14\x00\x15\x00\x16\x00\x17\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x25\x00\x26\x00\x27\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x3d\x00\x3e\x00\x3f\x00\x40\x00\x2d\x00\x0a\x00\x0a\x00\x2d\x00\x2d\x00\x2d\x00\x2d\x00\x2d\x00\x2d\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x2a\x00\x3e\x00\x2b\x00\x27\x00\x27\x00\xff\xff\xff\xff\x3e\x00\xff\xff\xff\xff\xff\xff\xff\xff\x5b\x00\x5c\x00\x5d\x00\x5e\x00\x5f\x00\x60\x00\x20\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\x2d\x00\x2d\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x7b\x00\x7c\x00\x7d\x00\x7e\x00\x7f\x00\x80\x00\x81\x00\x82\x00\x83\x00\x84\x00\x85\x00\x86\x00\x87\x00\x88\x00\x89\x00\x8a\x00\x8b\x00\x8c\x00\x8d\x00\x8e\x00\x8f\x00\x90\x00\x91\x00\x92\x00\x93\x00\x94\x00\x95\x00\x96\x00\x97\x00\x98\x00\x99\x00\x9a\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\x9f\x00\xa0\x00\xa1\x00\xa2\x00\xa3\x00\xa4\x00\xa5\x00\xa6\x00\xa7\x00\xa8\x00\xa9\x00\xaa\x00\xab\x00\xac\x00\xad\x00\xae\x00\xaf\x00\xb0\x00\xb1\x00\xb2\x00\xb3\x00\xb4\x00\xb5\x00\xb6\x00\xb7\x00\xb8\x00\xb9\x00\xba\x00\xbb\x00\xbc\x00\xbd\x00\xbe\x00\xbf\x00\x7d\x00\x7d\x00\x27\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xd7\x00\xff\xff\xff\xff\xff\xff\xff\xff\x41\x00\x42\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x53\x00\x54\x00\x55\x00\x56\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x22\x00\xf7\x00\xff\xff\xff\xff\x5f\x00\x27\x00\x61\x00\x62\x00\x63\x00\x64\x00\x65\x00\x66\x00\x67\x00\x68\x00\x69\x00\x6a\x00\x6b\x00\x6c\x00\x6d\x00\x6e\x00\x6f\x00\x70\x00\x71\x00\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x78\x00\x79\x00\x7a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x0a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x5c\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x22\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x6e\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x74\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc0\x00\xc1\x00\xc2\x00\xc3\x00\xc4\x00\xc5\x00\xc6\x00\xc7\x00\xc8\x00\xc9\x00\xca\x00\xcb\x00\xcc\x00\xcd\x00\xce\x00\xcf\x00\xd0\x00\xd1\x00\xd2\x00\xd3\x00\xd4\x00\xd5\x00\xd6\x00\x5c\x00\xd8\x00\xd9\x00\xda\x00\xdb\x00\xdc\x00\xdd\x00\xde\x00\xdf\x00\xe0\x00\xe1\x00\xe2\x00\xe3\x00\xe4\x00\xe5\x00\xe6\x00\xe7\x00\xe8\x00\xe9\x00\xea\x00\xeb\x00\xec\x00\xed\x00\xee\x00\xef\x00\xf0\x00\xf1\x00\xf2\x00\xf3\x00\xf4\x00\xf5\x00\xf6\x00\x27\x00\xf8\x00\xf9\x00\xfa\x00\xfb\x00\xfc\x00\xfd\x00\xfe\x00\xff\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x41\x00\x42\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x53\x00\x54\x00\x55\x00\x56\x00\x57\x00\x58\x00\x59\x00\x5a\x00\xff\xff\xff\xff\xff\xff\xff\xff\x5f\x00\xff\xff\x61\x00\x62\x00\x63\x00\x64\x00\x65\x00\x66\x00\x67\x00\x68\x00\x69\x00\x6a\x00\x6b\x00\x6c\x00\x6d\x00\x6e\x00\x6f\x00\x70\x00\x71\x00\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x78\x00\x79\x00\x7a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x0a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x22\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc0\x00\xc1\x00\xc2\x00\xc3\x00\xc4\x00\xc5\x00\xc6\x00\xc7\x00\xc8\x00\xc9\x00\xca\x00\xcb\x00\xcc\x00\xcd\x00\xce\x00\xcf\x00\xd0\x00\xd1\x00\xd2\x00\xd3\x00\xd4\x00\xd5\x00\xd6\x00\x5c\x00\xd8\x00\xd9\x00\xda\x00\xdb\x00\xdc\x00\xdd\x00\xde\x00\xdf\x00\xe0\x00\xe1\x00\xe2\x00\xe3\x00\xe4\x00\xe5\x00\xe6\x00\xe7\x00\xe8\x00\xe9\x00\xea\x00\xeb\x00\xec\x00\xed\x00\xee\x00\xef\x00\xf0\x00\xf1\x00\xf2\x00\xf3\x00\xf4\x00\xf5\x00\xf6\x00\xff\xff\xf8\x00\xf9\x00\xfa\x00\xfb\x00\xfc\x00\xfd\x00\xfe\x00\xff\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"#
+alex_check :: Array Int Int
+alex_check = listArray (0,742) [-1,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,45,10,10,45,45,45,45,45,45,9,10,11,12,13,42,62,43,39,39,-1,-1,62,-1,-1,-1,-1,91,92,93,94,95,96,32,48,49,50,51,52,53,54,55,56,57,-1,-1,-1,-1,45,45,-1,-1,-1,-1,-1,-1,-1,-1,-1,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,125,125,39,-1,-1,-1,-1,-1,-1,-1,-1,48,49,50,51,52,53,54,55,56,57,-1,-1,215,-1,-1,-1,-1,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,34,247,-1,-1,95,39,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,10,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,92,-1,-1,-1,-1,-1,-1,-1,34,-1,-1,-1,-1,-1,-1,-1,-1,-1,110,-1,-1,-1,-1,-1,116,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,92,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,39,248,249,250,251,252,253,254,255,48,49,50,51,52,53,54,55,56,57,-1,-1,-1,-1,-1,-1,-1,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,-1,-1,-1,-1,95,-1,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,10,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,34,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,92,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,-1,248,249,250,251,252,253,254,255,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1]
 
-alex_deflt :: AlexAddr
-alex_deflt = AlexA# "\x15\x00\xff\xff\x03\x00\x03\x00\xff\xff\xff\xff\x0b\x00\xff\xff\x0b\x00\x0b\x00\x0b\x00\x0b\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x14\x00\x14\x00\xff\xff\xff\xff\xff\xff\x19\x00\x19\x00\xff\xff\xff\xff"#
+alex_deflt :: Array Int Int
+alex_deflt = listArray (0,27) [21,-1,3,3,-1,-1,11,-1,11,11,11,11,-1,-1,-1,-1,-1,-1,-1,20,20,-1,-1,-1,25,25,-1,-1]
 
 alex_accept = listArray (0::Int,27) [[],[],[(AlexAccSkip)],[(AlexAccSkip)],[],[(AlexAcc (alex_action_3))],[(AlexAccSkip)],[(AlexAccSkip)],[],[],[],[],[(AlexAcc (alex_action_3))],[(AlexAccSkip)],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_4))],[],[],[(AlexAcc (alex_action_5))],[(AlexAcc (alex_action_5))],[(AlexAcc (alex_action_6))],[],[],[],[(AlexAcc (alex_action_7))]]
-{-# LINE 35 "LexGF.x" #-}
+{-# LINE 34 "LexGF.x" #-}
 
 tok f p s = f p s
 
-share :: String -> String
-share = shareString
-
 data Tok =
-   TS !String     -- reserved words
- | TL !String     -- string literals
- | TI !String     -- integer literals
- | TV !String     -- identifiers
- | TD !String     -- double precision float literals
- | TC !String     -- character literals
- | T_LString !String
+   TS String     -- reserved words
+ | TL String     -- string literals
+ | TI String     -- integer literals
+ | TV String     -- identifiers
+ | TD String     -- double precision float literals
+ | TC String     -- character literals
+ | T_LString String
 
  deriving (Eq,Show,Ord)
 
@@ -71,18 +62,20 @@ prToken t = case t of
 
   _ -> show t
 
-data BTree = N | B String Tok BTree BTree deriving (Show)
-
 eitherResIdent :: (String -> Tok) -> String -> Tok
-eitherResIdent tv s = treeFind resWords
-  where
-  treeFind N = tv s
-  treeFind (B a t left right) | s < a  = treeFind left
-                              | s > a  = treeFind right
-                              | s == a = t
+eitherResIdent tv s = if isResWord s then (TS s) else (tv s) where
+  isResWord s = isInTree s $
+    B "lincat" (B "def" (B "Type" (B "Str" (B "PType" (B "Lin" N N) N) (B "Tok" (B "Strs" N N) N)) (B "cat" (B "case" (B "abstract" N N) N) (B "data" (B "concrete" N N) N))) (B "include" (B "fun" (B "fn" (B "flags" N N) N) (B "in" (B "grammar" N N) N)) (B "interface" (B "instance" (B "incomplete" N N) N) (B "lin" (B "let" N N) N)))) (B "resource" (B "out" (B "of" (B "lintype" (B "lindef" N N) N) (B "oper" (B "open" N N) N)) (B "pattern" (B "param" (B "package" N N) N) (B "printname" (B "pre" N N) N))) (B "union" (B "table" (B "strs" (B "reuse" N N) N) (B "transfer" (B "tokenizer" N N) N)) (B "where" (B "variants" (B "var" N N) N) (B "with" N N))))
 
-resWords = b "lincat" (b "def" (b "Type" (b "Str" (b "PType" (b "Lin" N N) N) (b "Tok" (b "Strs" N N) N)) (b "cat" (b "case" (b "abstract" N N) N) (b "data" (b "concrete" N N) N))) (b "include" (b "fun" (b "fn" (b "flags" N N) N) (b "in" (b "grammar" N N) N)) (b "interface" (b "instance" (b "incomplete" N N) N) (b "lin" (b "let" N N) N)))) (b "resource" (b "out" (b "of" (b "lintype" (b "lindef" N N) N) (b "oper" (b "open" N N) N)) (b "pattern" (b "param" (b "package" N N) N) (b "printname" (b "pre" N N) N))) (b "union" (b "table" (b "strs" (b "reuse" N N) N) (b "transfer" (b "tokenizer" N N) N)) (b "where" (b "variants" (b "var" N N) N) (b "with" N N))))
-   where b s = B s (TS s)
+data BTree = N | B String BTree BTree deriving (Show)
+
+isInTree :: String -> BTree -> Bool
+isInTree x tree = case tree of
+  N -> False
+  B a left right
+   | x < a  -> isInTree x left
+   | x > a  -> isInTree x right
+   | x == a -> True
 
 unescapeInitTail :: String -> String
 unescapeInitTail = unesc . tail where
@@ -134,14 +127,11 @@ alexGetChar (p, _, (c:s)) =
 alexInputPrevChar :: AlexInput -> Char
 alexInputPrevChar (p, c, s) = c
 
-alex_action_3 = tok (\p s -> PT p (TS $ share s)) 
-alex_action_4 = tok (\p s -> PT p (eitherResIdent (T_LString . share) s)) 
-alex_action_5 = tok (\p s -> PT p (eitherResIdent (TV . share) s)) 
-alex_action_6 = tok (\p s -> PT p (TL $ share $ unescapeInitTail s)) 
-alex_action_7 = tok (\p s -> PT p (TI $ share s))    
-{-# LINE 1 "GenericTemplate.hs" #-}
-{-# LINE 1 "<built-in>" #-}
-{-# LINE 1 "<command line>" #-}
+alex_action_3 = tok (\p s -> PT p (TS s)) 
+alex_action_4 = tok (\p s -> PT p (eitherResIdent T_LString s)) 
+alex_action_5 = tok (\p s -> PT p (eitherResIdent TV s)) 
+alex_action_6 = tok (\p s -> PT p (TL $ unescapeInitTail s)) 
+alex_action_7 = tok (\p s -> PT p (TI s))    
 {-# LINE 1 "GenericTemplate.hs" #-}
 -- -----------------------------------------------------------------------------
 -- ALEX TEMPLATE
@@ -152,8 +142,7 @@ alex_action_7 = tok (\p s -> PT p (TI $ share s))
 -- -----------------------------------------------------------------------------
 -- INTERNALS and main scanner engine
 
-
-{-# LINE 35 "GenericTemplate.hs" #-}
+{-# LINE 22 "GenericTemplate.hs" #-}
 
 
 
@@ -165,30 +154,23 @@ alex_action_7 = tok (\p s -> PT p (TI $ share s))
 
 
 
-data AlexAddr = AlexA# Addr#
-
-{-# INLINE alexIndexShortOffAddr #-}
-alexIndexShortOffAddr (AlexA# arr) off =
-#if __GLASGOW_HASKELL__ > 500
-	narrow16Int# i
-#elif __GLASGOW_HASKELL__ == 500
-	intToInt16# i
-#else
-	(i `iShiftL#` 16#) `iShiftRA#` 16#
-#endif
-  where
-#if __GLASGOW_HASKELL__ >= 503
-	i = word2Int# ((high `uncheckedShiftL#` 8#) `or#` low)
-#else
-	i = word2Int# ((high `shiftL#` 8#) `or#` low)
-#endif
-	high = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#)))
-	low  = int2Word# (ord# (indexCharOffAddr# arr off'))
-	off' = off *# 2#
 
 
 
 
+
+
+
+
+
+
+
+
+{-# LINE 66 "GenericTemplate.hs" #-}
+
+alexIndexShortOffAddr arr off = arr ! off
+
+
 -- -----------------------------------------------------------------------------
 -- Main lexing routines
 
@@ -199,11 +181,11 @@ data AlexReturn a
   | AlexToken  !AlexInput !Int a
 
 -- alexScan :: AlexInput -> StartCode -> Maybe (AlexInput,Int,act)
-alexScan input (I# (sc))
-  = alexScanUser undefined input (I# (sc))
+alexScan input (sc)
+  = alexScanUser undefined input (sc)
 
-alexScanUser user input (I# (sc))
-  = case alex_scan_tkn user input 0# input sc AlexNone of
+alexScanUser user input (sc)
+  = case alex_scan_tkn user input (0) input sc AlexNone of
 	(AlexNone, input') ->
 		case alexGetChar input of
 			Nothing -> 
@@ -236,12 +218,12 @@ alexScanUser user input (I# (sc))
 alex_scan_tkn user orig_input len input s last_acc =
   input `seq` -- strict in the input
   case s of 
-    -1# -> (last_acc, input)
+    (-1) -> (last_acc, input)
     _ -> alex_scan_tkn' user orig_input len input s last_acc
 
 alex_scan_tkn' user orig_input len input s last_acc =
   let 
-	new_acc = check_accs (alex_accept `unsafeAt` (I# (s)))
+	new_acc = check_accs (alex_accept `unsafeAt` (s))
   in
   new_acc `seq`
   case alexGetChar input of
@@ -252,26 +234,26 @@ alex_scan_tkn' user orig_input len input s last_acc =
 
 	let
 		base   = alexIndexShortOffAddr alex_base s
-		(I# (ord_c)) = ord c
-		offset = (base +# ord_c)
+		(ord_c) = ord c
+		offset = (base + ord_c)
 		check  = alexIndexShortOffAddr alex_check offset
 		
-		new_s = if (offset >=# 0#) && (check ==# ord_c)
+		new_s = if (offset >= (0)) && (check == ord_c)
 			  then alexIndexShortOffAddr alex_table offset
 			  else alexIndexShortOffAddr alex_deflt s
 	in
-	alex_scan_tkn user orig_input (len +# 1#) new_input new_s new_acc
+	alex_scan_tkn user orig_input (len + (1)) new_input new_s new_acc
 
   where
 	check_accs [] = last_acc
-	check_accs (AlexAcc a : _) = AlexLastAcc a input (I# (len))
-	check_accs (AlexAccSkip : _)  = AlexLastSkip  input (I# (len))
+	check_accs (AlexAcc a : _) = AlexLastAcc a input (len)
+	check_accs (AlexAccSkip : _)  = AlexLastSkip  input (len)
 	check_accs (AlexAccPred a pred : rest)
-	   | pred user orig_input (I# (len)) input
-	   = AlexLastAcc a input (I# (len))
+	   | pred user orig_input (len) input
+	   = AlexLastAcc a input (len)
 	check_accs (AlexAccSkipPred pred : rest)
-	   | pred user orig_input (I# (len)) input
-	   = AlexLastSkip input (I# (len))
+	   | pred user orig_input (len) input
+	   = AlexLastSkip input (len)
 	check_accs (_ : rest) = check_accs rest
 
 data AlexLastAcc a
@@ -300,8 +282,8 @@ alexPrevCharIs c _ input _ _ = c == alexInputPrevChar input
 alexPrevCharIsOneOf arr _ input _ _ = arr ! alexInputPrevChar input
 
 --alexRightContext :: Int -> AlexAccPred _
-alexRightContext (I# (sc)) user _ _ input = 
-     case alex_scan_tkn user input 0# input sc AlexNone of
+alexRightContext (sc) user _ _ input = 
+     case alex_scan_tkn user input (0) input sc AlexNone of
 	  (AlexNone, _) -> False
 	  _ -> True
 	-- TODO: there's no need to find the longest
@@ -309,4 +291,4 @@ alexRightContext (I# (sc)) user _ _ input =
 	-- the first match will do.
 
 -- used by wrappers
-iUnbox (I# (i)) = i
+iUnbox (i) = i
diff --git a/src/GF/Source/LexGF.x b/src/GF/Source/LexGF.x
index 72431c578..0486b0f0e 100644
--- a/src/GF/Source/LexGF.x
+++ b/src/GF/Source/LexGF.x
@@ -4,7 +4,6 @@
 module LexGF where
 
 import ErrM
-import SharedString
 }
 
 
@@ -23,30 +22,27 @@ $u = [\0-\255]          -- universal: any character
 "{-" ([$u # \-] | \- [$u # \}])* ("-")+ "}" ; 
 
 $white+ ;
-@rsyms { tok (\p s -> PT p (TS $ share s)) }
-\' ($u # \')* \' { tok (\p s -> PT p (eitherResIdent (T_LString . share) s)) }
+@rsyms { tok (\p s -> PT p (TS s)) }
+\' ($u # \')* \' { tok (\p s -> PT p (eitherResIdent T_LString s)) }
 
-$l $i*   { tok (\p s -> PT p (eitherResIdent (TV . share) s)) }
-\" ([$u # [\" \\ \n]] | (\\ (\" | \\ | \' | n | t)))* \"{ tok (\p s -> PT p (TL $ share $ unescapeInitTail s)) }
+$l $i*   { tok (\p s -> PT p (eitherResIdent TV s)) }
+\" ([$u # [\" \\ \n]] | (\\ (\" | \\ | \' | n | t)))* \"{ tok (\p s -> PT p (TL $ unescapeInitTail s)) }
 
-$d+      { tok (\p s -> PT p (TI $ share s))    }
+$d+      { tok (\p s -> PT p (TI s))    }
 
 
 {
 
 tok f p s = f p s
 
-share :: String -> String
-share = shareString
-
 data Tok =
-   TS !String     -- reserved words
- | TL !String     -- string literals
- | TI !String     -- integer literals
- | TV !String     -- identifiers
- | TD !String     -- double precision float literals
- | TC !String     -- character literals
- | T_LString !String
+   TS String     -- reserved words
+ | TL String     -- string literals
+ | TI String     -- integer literals
+ | TV String     -- identifiers
+ | TD String     -- double precision float literals
+ | TC String     -- character literals
+ | T_LString String
 
  deriving (Eq,Show,Ord)
 
@@ -72,18 +68,20 @@ prToken t = case t of
 
   _ -> show t
 
-data BTree = N | B String Tok BTree BTree deriving (Show)
-
 eitherResIdent :: (String -> Tok) -> String -> Tok
-eitherResIdent tv s = treeFind resWords
-  where
-  treeFind N = tv s
-  treeFind (B a t left right) | s < a  = treeFind left
-                              | s > a  = treeFind right
-                              | s == a = t
+eitherResIdent tv s = if isResWord s then (TS s) else (tv s) where
+  isResWord s = isInTree s $
+    B "lincat" (B "def" (B "Type" (B "Str" (B "PType" (B "Lin" N N) N) (B "Tok" (B "Strs" N N) N)) (B "cat" (B "case" (B "abstract" N N) N) (B "data" (B "concrete" N N) N))) (B "include" (B "fun" (B "fn" (B "flags" N N) N) (B "in" (B "grammar" N N) N)) (B "interface" (B "instance" (B "incomplete" N N) N) (B "lin" (B "let" N N) N)))) (B "resource" (B "out" (B "of" (B "lintype" (B "lindef" N N) N) (B "oper" (B "open" N N) N)) (B "pattern" (B "param" (B "package" N N) N) (B "printname" (B "pre" N N) N))) (B "union" (B "table" (B "strs" (B "reuse" N N) N) (B "transfer" (B "tokenizer" N N) N)) (B "where" (B "variants" (B "var" N N) N) (B "with" N N))))
 
-resWords = b "lincat" (b "def" (b "Type" (b "Str" (b "PType" (b "Lin" N N) N) (b "Tok" (b "Strs" N N) N)) (b "cat" (b "case" (b "abstract" N N) N) (b "data" (b "concrete" N N) N))) (b "include" (b "fun" (b "fn" (b "flags" N N) N) (b "in" (b "grammar" N N) N)) (b "interface" (b "instance" (b "incomplete" N N) N) (b "lin" (b "let" N N) N)))) (b "resource" (b "out" (b "of" (b "lintype" (b "lindef" N N) N) (b "oper" (b "open" N N) N)) (b "pattern" (b "param" (b "package" N N) N) (b "printname" (b "pre" N N) N))) (b "union" (b "table" (b "strs" (b "reuse" N N) N) (b "transfer" (b "tokenizer" N N) N)) (b "where" (b "variants" (b "var" N N) N) (b "with" N N))))
-   where b s = B s (TS s)
+data BTree = N | B String BTree BTree deriving (Show)
+
+isInTree :: String -> BTree -> Bool
+isInTree x tree = case tree of
+  N -> False
+  B a left right
+   | x < a  -> isInTree x left
+   | x > a  -> isInTree x right
+   | x == a -> True
 
 unescapeInitTail :: String -> String
 unescapeInitTail = unesc . tail where
diff --git a/src/GF/Source/ParGF.hs b/src/GF/Source/ParGF.hs
index 3c7cee9a3..604311be9 100644
--- a/src/GF/Source/ParGF.hs
+++ b/src/GF/Source/ParGF.hs
@@ -4,8 +4,8 @@
 module ParGF where
 import AbsGF
 import LexGF
-import Ident --H
 import ErrM
+import Ident --H
 import Array
 #if __GLASGOW_HASKELL__ >= 503
 import GHC.Exts
@@ -496,21 +496,21 @@ happyOutTok x = unsafeCoerce# x
 {-# INLINE happyOutTok #-}
 
 happyActOffsets :: HappyAddr
-happyActOffsets = HappyA# "\x00\x00\x89\x00\xb2\x04\x92\x00\x94\x04\x00\x00\xcb\x04\x00\x00\x00\x00\x00\x00\x00\x00\xcf\x04\xf8\x00\xe1\x00\x8a\x04\x00\x00\xd1\x04\x8c\x04\x19\x00\x24\x00\x00\x00\x92\x00\xfd\xff\x8c\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x92\x00\x00\x00\xd3\x04\xfe\xff\xc3\x04\xb6\x04\x9a\x01\xb5\x04\x00\x00\x00\x00\x00\x00\x74\x04\x00\x00\xb3\x00\x01\x00\xb8\x04\x67\x04\x00\x00\x61\x04\x54\x00\xa5\x04\xae\x04\xac\x04\x5c\x04\x5c\x04\x5c\x04\x5c\x04\x5c\x04\x5c\x04\x00\x00\xb3\x00\x00\x00\xa4\x04\x00\x00\xb3\x00\xb3\x00\xb3\x00\xe6\x04\x92\x00\x00\x00\xa1\x04\x2c\x00\x5d\x00\x24\x00\x92\x00\x92\x00\x99\x04\xda\x00\x96\x04\x69\x04\x4d\x04\x2c\x00\x5e\x04\x00\x00\x00\x00\x78\x04\x8b\x04\xf6\xff\x00\x00\x7a\x04\x76\x04\x6a\x04\x8b\x02\x6e\x04\x00\x00\xb8\x02\x73\x04\x65\x04\x2d\x04\x8c\x02\x6b\x04\x92\x00\xc7\x00\xc7\x00\xc7\x00\x92\x00\x92\x00\x92\x00\x68\x04\x42\x04\xff\xff\x69\x01\x00\x00\x1a\x04\x00\x00\x00\x00\x12\x04\x19\x04\x00\x00\x00\x00\x00\x00\x49\x01\x49\x01\x49\x01\x00\x00\x00\x00\x00\x00\x19\x04\x19\x04\x47\x04\x92\x00\x00\x00\x00\x00\x00\x00\x15\x04\x00\x00\x92\x00\x92\x00\x33\x04\x92\x00\xf6\xff\x3f\x04\x3d\x04\x00\x00\x00\x00\x2c\x00\x3b\x04\x40\x04\x3c\x04\xf2\x03\x2c\x00\x2c\x00\x00\x00\x3a\x04\x92\x00\xec\x03\x92\x00\x92\x00\x35\x04\x34\x04\x2f\x04\x21\x04\x8e\x01\x00\x00\x00\x00\x1d\x04\x14\x04\x26\x04\x25\x04\x2c\x00\x05\x04\x00\x00\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\x3c\x02\xbd\x03\xbd\x03\xbd\x03\x00\x00\x00\x00\x00\x00\xb3\x00\x00\x00\x04\x04\x00\x00\x00\x00\xe5\x03\xcf\x03\x00\x00\xe3\x04\x02\x04\xdb\x03\x20\x00\x00\x00\xc7\x03\xf4\x03\xb0\x03\xb0\x03\xb0\x03\xb0\x03\x1e\x00\x00\x00\x38\x01\xef\x03\x00\x00\xc1\x00\x00\x00\xe8\x03\xd5\x03\x00\x00\xe6\x03\x88\x03\x88\x03\x00\x00\xd6\x03\xd4\x03\x00\x00\xd2\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd1\x03\x00\x00\xc0\x03\xc6\x03\xc5\x03\x00\x00\x00\x00\x16\x00\xc4\x03\x00\x00\x00\x00\x00\x00\xc1\x03\x00\x00\x00\x00\x12\x00\xbf\x03\x00\x00\x2c\x00\x92\x00\x2c\x00\x00\x00\x70\x03\x00\x00\x92\x00\x92\x00\xb8\x03\x00\x00\x00\x00\x00\x00\x78\x03\x00\x00\xa6\x03\x93\x03\x97\x03\x45\x01\x9c\x03\x9b\x03\x96\x03\x00\x00\x2c\x00\x92\x00\x00\x00\x46\x03\x2c\x00\x00\x00\x00\x00\x92\x00\x82\x03\x00\x00\x00\x00\x84\x03\x89\x03\x00\x00\x80\x03\x00\x00\x7f\x03\x00\x00\x8a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x7e\x03\x00\x00\x00\x00\x00\x00\x00\x00\x36\x03\x2c\x00\x00\x00\x00\x00\x00\x00\x2c\x00\x92\x00\x92\x00\x64\x03\x6d\x03\x62\x03\x00\x00\x2c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x22\x03\x18\x01\x22\x03\x22\x03\x22\x03\x22\x03\x92\x00\x22\x03\x69\x03\x1c\x03\x18\x00\x00\x00\x00\x00\x92\x00\x1c\x03\x00\x00\x92\x00\x92\x00\x1c\x03\x63\x03\x00\x00\x5c\x03\x1c\x01\x00\x00\x00\x00\x41\x03\x00\x00\x51\x03\x00\x00\x00\x00\x4e\x03\x0e\x00\x0e\x00\x49\x03\xf0\x02\x00\x00\x2f\x03\x02\x03\x00\x00\xe2\x02\xe2\x02\xe2\x02\x00\x00\x00\x00\x0e\x00\x92\x00\x00\x00\x2a\x03\x00\x00\x00\x00\x00\x00\x00\x00\x1b\x03\x00\x00\xec\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x03\x0a\x03\x00\x00\x11\x03\x00\x00\x00\x00\x00\x00\x19\x00\x00\x00\x00\x00\x00\x00\x92\x00\x92\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x03\xc0\x02\xc0\x02\x56\x02\xc0\x02\xc0\x02\x18\x01\x92\x00\x00\x00\x00\x00\x94\x00\xfe\x02\x00\x00\x30\x02\x00\x00\x0e\x00\x08\x03\xbd\x02\x00\x00\x00\x00\x00\x00\xbd\x02\x00\x00\x00\x00\x00\x00\xf6\x02\xf9\x02\x00\x00\x00\x00\x92\x00\xde\x02\x00\x00\x00\x00\xdd\x02\xdf\x02\xd3\x02\xda\x02\x00\x00\x7e\x02\x7e\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc3\x02\x00\x00\x63\x02\xe4\x00\x0e\x00\x0e\x00\xb0\x02\xa1\x02\x00\x00\x00\x00\x00\x00"#
+happyActOffsets = HappyA# "\x00\x00\x89\x00\xe1\x04\x92\x00\xc6\x04\x00\x00\xfb\x04\x00\x00\x00\x00\x00\x00\x00\x00\xf9\x04\xf8\x00\xe1\x00\xb5\x04\x00\x00\xfc\x04\xb6\x04\x19\x00\x24\x00\x00\x00\x92\x00\xfd\xff\xb6\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x92\x00\x00\x00\x00\x05\xfe\xff\xfd\x04\xfa\x04\x9a\x01\xf4\x04\x00\x00\x00\x00\x00\x00\xae\x04\x00\x00\xb3\x00\x01\x00\xfe\x04\xab\x04\x00\x00\xa5\x04\x54\x00\xf1\x04\xeb\x04\xea\x04\xa0\x04\xa0\x04\xa0\x04\xa0\x04\xa0\x04\xa0\x04\x00\x00\xb3\x00\x00\x00\xe7\x04\x00\x00\xb3\x00\xb3\x00\xb3\x00\xe3\x04\x92\x00\x00\x00\x83\x00\x2c\x00\x5d\x00\x24\x00\x92\x00\x92\x00\xd5\x04\xda\x00\xd2\x04\xa3\x04\x6d\x04\x2c\x00\x7a\x04\x00\x00\x00\x00\xad\x04\xa6\x04\xf6\xff\x00\x00\x94\x04\xa2\x04\x89\x04\x8b\x02\x8d\x04\x00\x00\xb8\x02\x92\x04\x8f\x04\x4a\x04\x8c\x02\x81\x04\x92\x00\xc7\x00\xc7\x00\xc7\x00\x92\x00\x92\x00\x92\x00\x80\x04\x75\x04\xff\xff\x69\x01\x00\x00\x36\x04\x00\x00\x00\x00\x1e\x04\x34\x04\x00\x00\x00\x00\x00\x00\x49\x01\x49\x01\x49\x01\x00\x00\x00\x00\x00\x00\x34\x04\x34\x04\x73\x04\x92\x00\x00\x00\x00\x00\x00\x00\x1f\x04\x00\x00\x92\x00\x92\x00\x53\x04\x92\x00\xf6\xff\x65\x04\x48\x04\x00\x00\x00\x00\x2c\x00\x4f\x04\x40\x04\x50\x04\x07\x04\x2c\x00\x2c\x00\x00\x00\x3b\x04\x92\x00\xf5\x03\x92\x00\x92\x00\x3d\x04\x3c\x04\x38\x04\x2e\x04\x8e\x01\x00\x00\x00\x00\x2b\x04\x11\x04\x25\x04\x21\x04\x2c\x00\x92\x00\x20\x04\x00\x00\xde\x03\xde\x03\xde\x03\xde\x03\xde\x03\xde\x03\xde\x03\xde\x03\xde\x03\xde\x03\xde\x03\xde\x03\xde\x03\x3c\x02\xde\x03\xde\x03\xde\x03\x00\x00\x00\x00\x00\x00\xb3\x00\x00\x00\x1c\x04\x00\x00\x00\x00\xdc\x03\xda\x03\x00\x00\xc7\x02\x0d\x04\xdf\x03\x20\x00\x00\x00\xd7\x03\x05\x04\xb6\x03\xb6\x03\xb6\x03\xb6\x03\x1e\x00\x00\x00\x38\x01\xfa\x03\x00\x00\xc1\x00\x00\x00\xf9\x03\xf8\x03\x00\x00\xf6\x03\x98\x03\x98\x03\x00\x00\xf4\x03\xe4\x03\x00\x00\xe2\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe1\x03\x00\x00\xd9\x03\xdd\x03\xce\x03\x00\x00\x00\x00\x16\x00\xcc\x03\x00\x00\x00\x00\x00\x00\xca\x03\x00\x00\x00\x00\xc0\x03\x12\x00\xbf\x03\x00\x00\x2c\x00\x92\x00\x2c\x00\x00\x00\x72\x03\x00\x00\x92\x00\x92\x00\xb4\x03\x00\x00\x00\x00\x00\x00\x88\x03\x00\x00\xa9\x03\x8f\x03\xac\x03\x0a\x02\xae\x03\x9e\x03\x9a\x03\x00\x00\x2c\x00\x92\x00\x00\x00\x40\x03\x2c\x00\x00\x00\x00\x00\x92\x00\x8b\x03\x00\x00\x00\x00\x7d\x03\x7e\x03\x00\x00\x84\x03\x00\x00\x83\x03\x00\x00\x45\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x81\x03\x00\x00\x00\x00\x00\x00\x00\x00\x26\x03\x2c\x00\x00\x00\x00\x00\x00\x00\x2c\x00\x92\x00\x92\x00\x63\x03\x6f\x03\x6b\x03\x00\x00\x2c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x23\x03\x18\x01\x23\x03\x23\x03\x23\x03\x23\x03\x92\x00\x23\x03\x68\x03\x22\x03\x18\x00\x00\x00\x00\x00\x92\x00\x22\x03\x00\x00\x92\x00\x92\x00\x22\x03\x56\x03\x00\x00\x4d\x03\x1c\x01\x00\x00\x00\x00\x4b\x03\x00\x00\x4a\x03\x00\x00\x00\x00\x3c\x03\x0e\x00\x0e\x00\x37\x03\x07\x03\x00\x00\x1e\x03\xfc\x02\x00\x00\xdf\x02\xdf\x02\xdf\x02\x00\x00\x00\x00\x0e\x00\x92\x00\x00\x00\x25\x03\x00\x00\x00\x00\x00\x00\x00\x00\x18\x03\x00\x00\xf8\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0c\x03\x06\x03\x00\x00\x11\x03\x00\x00\x00\x00\x00\x00\x19\x00\x00\x00\x00\x00\x00\x00\x92\x00\x92\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x03\xc6\x02\xc6\x02\x56\x02\xc6\x02\xc6\x02\x18\x01\x92\x00\x00\x00\x00\x00\x94\x00\x04\x03\x00\x00\x30\x02\x00\x00\x0e\x00\xfb\x02\xaf\x02\x00\x00\x00\x00\x00\x00\xaf\x02\x00\x00\x00\x00\x00\x00\xf0\x02\xf4\x02\x00\x00\x00\x00\x92\x00\xee\x02\x00\x00\x00\x00\xde\x02\xf1\x02\xe2\x02\xdd\x02\x00\x00\x93\x02\x93\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xcf\x02\x00\x00\x84\x02\xe4\x00\x0e\x00\x0e\x00\xc2\x02\xb0\x02\x00\x00\x00\x00\x00\x00"#
 
 happyGotoOffsets :: HappyAddr
-happyGotoOffsets = HappyA# "\x36\x02\x86\x01\xda\x01\xd2\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xcd\x04\x00\x00\x00\x00\x00\x00\x00\x00\xa6\x01\xbb\x02\xe3\x01\x00\x00\x9e\x02\x85\x00\xa2\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc0\x04\x00\x00\x00\x00\x56\x01\x00\x00\x00\x00\xc4\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x86\x02\x07\x00\x00\x00\x7a\x02\x72\x02\x00\x00\x00\x00\xc0\x00\x00\x00\x00\x00\x00\x00\x6a\x02\x68\x02\x5d\x02\x5c\x02\x4c\x02\x43\x02\x00\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x0b\x00\x09\x00\x03\x00\x24\x02\x03\x03\x00\x00\x00\x00\xdc\x01\xb4\x04\x75\x00\xed\x02\x9a\x04\x00\x00\x00\x00\x00\x00\x00\x00\x50\x01\xc7\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x71\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x37\x02\x00\x00\x00\x00\x8e\x04\xf1\x03\xf3\x02\xa0\x01\x7c\x04\x71\x04\x5b\x04\x00\x00\x00\x00\x11\x00\xab\x01\x00\x00\x47\x01\x00\x00\x00\x00\x12\x02\x06\x01\x00\x00\x00\x00\x00\x00\xcd\x04\xcd\x04\xcd\x04\x00\x00\x00\x00\x00\x00\x74\x00\x11\x02\x00\x00\x56\x04\x00\x00\x00\x00\x00\x00\x0e\x02\x00\x00\x82\x02\x39\x04\x00\x00\x23\x04\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x46\x02\x00\x00\x00\x00\x00\x00\x82\x00\x7d\x01\x2d\x01\x00\x00\x00\x00\x17\x04\xe2\x00\x01\x04\xe4\x03\x00\x00\x00\x00\x00\x00\x00\x00\x40\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1b\x02\x00\x00\x00\x00\xb3\x01\x1a\x00\xf3\x04\xba\x02\xd8\x00\x4c\x04\x92\x03\x4b\x04\x0a\x04\x38\x03\x03\x02\x27\x02\x37\x03\x8e\x02\xff\x01\x0c\x03\x02\x02\x00\x00\x00\x00\x00\x00\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x44\x02\x00\x00\x00\x00\x00\x00\x00\x00\x89\x01\x00\x00\xe9\x01\x0b\x01\xd4\x01\xc6\x01\x40\x01\x00\x00\xfc\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8d\x02\x7c\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3c\x01\x00\x00\x00\x00\x00\x00\x75\x01\x00\x00\x00\x00\xf5\x01\xdf\x03\x3d\x02\x00\x00\x8f\x01\x00\x00\xd0\x02\xc2\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xef\x00\xc9\x03\x00\x00\x62\x01\xdf\x01\x00\x00\x00\x00\xbe\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6e\x00\x5a\x01\x00\x00\x00\x00\x00\x00\x8b\x00\xac\x03\xa0\x03\x00\x00\x00\x00\x00\x00\x00\x00\x24\x01\x00\x00\x00\x00\x00\x00\x00\x00\xb2\x01\x90\x00\xd1\x00\x88\x02\x2a\x02\x5f\x01\x86\x03\xc9\x00\x00\x00\xf8\x01\xdb\x00\x00\x00\x00\x00\x7a\x03\x0b\x02\x00\x00\x68\x03\x5d\x03\x33\x01\x00\x00\x00\x00\x00\x00\x3f\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x50\x02\x21\x02\x00\x00\x41\x01\x00\x00\x00\x00\x00\x00\x0e\x01\x73\x00\x25\x00\x2b\x01\x00\x00\x00\x00\x21\x00\x47\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc6\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf3\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa9\x02\x00\x00\x00\x00\x00\x00\xbd\x01\x42\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2d\x02\x86\x00\x81\x00\x6b\x00\x9c\x00\x90\x00\x25\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x36\x00\x00\x00\x2c\x01\x00\x00\x50\x03\x00\x00\x00\x00\x00\x00\x42\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0f\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0d\x03\xca\x01\x00\x00\x00\x00\x22\x00\x00\x00\x00\x00\x1c\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x14\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
+happyGotoOffsets = HappyA# "\x36\x02\x86\x01\xda\x01\xcb\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3b\x03\x00\x00\x00\x00\x00\x00\x00\x00\xa6\x01\xbb\x02\xe3\x01\x00\x00\x9e\x02\x85\x00\xa8\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xb3\x04\x00\x00\x00\x00\x56\x01\x00\x00\x00\x00\xc4\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x99\x02\x07\x00\x00\x00\x96\x02\x94\x02\x00\x00\x00\x00\xc0\x00\x00\x00\x00\x00\x00\x00\x86\x02\x72\x02\x6a\x02\x68\x02\x5d\x02\x5c\x02\x00\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x0b\x00\x09\x00\x03\x00\x34\x02\x15\x03\x00\x00\x00\x00\xdc\x01\xa7\x04\x75\x00\x03\x03\x91\x04\x00\x00\x00\x00\x00\x00\x00\x00\x50\x01\xc7\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x71\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x43\x02\x00\x00\x00\x00\x8c\x04\x80\x03\x09\x03\xa0\x01\x74\x04\x6f\x04\x59\x04\x00\x00\x00\x00\x11\x00\xab\x01\x00\x00\x47\x01\x00\x00\x00\x00\x3a\x02\x06\x01\x00\x00\x00\x00\x00\x00\x3b\x03\x3b\x03\x3b\x03\x00\x00\x00\x00\x00\x00\x74\x00\x37\x02\x00\x00\x4d\x04\x00\x00\x00\x00\x00\x00\x11\x02\x00\x00\x82\x02\x35\x04\x00\x00\x30\x04\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x46\x02\x00\x00\x00\x00\x00\x00\x82\x00\x7d\x01\x2d\x01\x00\x00\x00\x00\x1a\x04\xe2\x00\x15\x04\xfd\x03\x00\x00\x00\x00\x00\x00\x00\x00\x40\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1b\x02\xed\x02\x00\x00\x00\x00\xb3\x01\x1a\x00\xdd\x04\xba\x02\xd8\x00\xc5\x04\xc9\x04\xc4\x04\xb0\x04\xaf\x04\x03\x02\x27\x02\x56\x04\x8e\x02\xff\x01\x8a\x03\x02\x02\x00\x00\x00\x00\x00\x00\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x44\x02\x00\x00\x00\x00\x00\x00\x00\x00\x89\x01\x00\x00\xe9\x01\x0b\x01\xd4\x01\xc6\x01\x40\x01\x00\x00\xfc\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8d\x02\x7c\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3c\x01\x00\x00\x00\x00\x00\x00\x00\x00\x75\x01\x00\x00\x00\x00\xf5\x01\xf1\x03\x3d\x02\x00\x00\x8f\x01\x00\x00\xd0\x02\xc2\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xef\x00\xdb\x03\x00\x00\x62\x01\xdf\x01\x00\x00\x00\x00\xd6\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6e\x00\x5a\x01\x00\x00\x00\x00\x00\x00\x8b\x00\xbe\x03\xb9\x03\x00\x00\x00\x00\x00\x00\x00\x00\x24\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xb2\x01\x90\x00\xd1\x00\x88\x02\x2a\x02\x5f\x01\xa3\x03\xc9\x00\x00\x00\xf8\x01\xdb\x00\x00\x00\x00\x00\x97\x03\x0b\x02\x00\x00\x7a\x03\x64\x03\x33\x01\x00\x00\x00\x00\x00\x00\x3f\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x50\x02\x21\x02\x00\x00\x41\x01\x00\x00\x00\x00\x00\x00\x0e\x01\x73\x00\x25\x00\x2b\x01\x00\x00\x00\x00\x21\x00\x5f\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc6\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf3\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa9\x02\x00\x00\x00\x00\x00\x00\xbd\x01\x48\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2d\x02\x99\x00\x7c\x00\x6b\x00\x9c\x00\x90\x00\x2c\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x36\x00\x00\x00\x2c\x01\x00\x00\xc2\x03\x00\x00\x00\x00\x00\x00\x42\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6c\x03\xca\x01\x00\x00\x00\x00\x22\x00\x00\x00\x00\x00\x1c\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x14\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
 
 happyDefActions :: HappyAddr
-happyDefActions = HappyA# "\xf6\xff\xd2\xff\x1e\xff\x00\x00\x00\x00\xfb\xff\x89\xff\x85\xff\x84\xff\x7a\xff\x76\xff\x6d\xff\x68\xff\x5d\xff\x00\x00\x86\xff\x00\x00\x8c\xff\x3b\xff\x00\x00\x83\xff\x34\xff\x3b\xff\x00\x00\x49\xff\x47\xff\x46\xff\x48\xff\x4a\xff\x00\x00\x81\xff\x00\x00\x8c\xff\x00\x00\x00\x00\x00\x00\x00\x00\xfa\xff\xf9\xff\xf8\xff\x00\x00\xde\xff\x00\x00\x00\x00\x00\x00\x00\x00\xd1\xff\x00\x00\xd2\xff\xf5\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf4\xff\x1b\xff\x1c\xff\x00\x00\x1d\xff\x00\x00\x00\x00\x00\x00\x1f\xff\x5c\xff\x89\xff\x00\x00\x8c\xff\x00\x00\x00\x00\x5c\xff\x00\x00\x91\xff\x00\x00\x8b\xff\x00\x00\x8c\xff\x2a\xff\x00\x00\x6c\xff\x3d\xff\x3a\xff\x00\x00\x3b\xff\x3c\xff\x36\xff\x33\xff\x00\x00\x00\x00\x00\x00\x82\xff\x89\xff\x00\x00\x00\x00\x00\x00\x91\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x75\xff\x00\x00\x00\x00\x6e\xff\x8c\xff\x4c\xff\x79\xff\x00\x00\x8c\xff\x62\xff\x63\xff\x64\xff\x6a\xff\x6b\xff\x69\xff\x65\xff\x7f\xff\x88\xff\x00\x00\x00\x00\x00\x00\x00\x00\x7b\xff\x80\xff\x87\xff\x00\x00\x7e\xff\x34\xff\x00\x00\x00\x00\x00\x00\x3b\xff\x00\x00\x58\xff\x54\xff\x55\xff\x41\xff\x00\x00\x29\xff\x00\x00\x45\xff\x00\x00\x31\xff\x59\xff\x00\x00\x00\x00\x8c\xff\x00\x00\x00\x00\x00\x00\x5b\xff\x00\x00\x00\x00\x91\xff\x4e\xff\x42\xff\x3f\xff\x00\x00\x2d\xff\x00\x00\x00\x00\x00\x00\xdd\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\xff\x1a\xff\x19\xff\x16\xff\x17\xff\x00\x00\xe7\xff\xe6\xff\x00\x00\x00\x00\xe8\xff\xdb\xff\x00\x00\x00\x00\x91\xff\xf2\xff\xd7\xff\x00\x00\x00\x00\xcd\xff\x00\x00\x00\x00\x00\x00\x15\xff\x91\xff\x00\x00\xb2\xff\x00\x00\xbf\xff\x00\x00\x00\x00\xb6\xff\x00\x00\x00\x00\x00\x00\xb4\xff\xa6\xff\x00\x00\xbe\xff\x00\x00\xbd\xff\xb5\xff\xbb\xff\xbc\xff\xba\xff\x00\x00\xc3\xff\x00\x00\x00\x00\x00\x00\xb7\xff\xc1\xff\x91\xff\x00\x00\xc2\xff\xc0\xff\x21\xff\x00\x00\xc4\xff\x71\xff\x58\xff\x00\x00\x74\xff\x00\x00\x00\x00\x00\x00\x50\xff\x00\x00\x6f\xff\x5c\xff\x26\xff\x8f\xff\x8e\xff\x8a\xff\x60\xff\x00\x00\x35\xff\x30\xff\x00\x00\x00\x00\x91\xff\x00\x00\x44\xff\x00\x00\x5e\xff\x2a\xff\x00\x00\x40\xff\x00\x00\x00\x00\x39\xff\x67\xff\x00\x00\x00\x00\x36\xff\x32\xff\x00\x00\x00\x00\x7d\xff\x00\x00\x90\xff\x00\x00\x4b\xff\x91\xff\x5f\xff\x78\xff\x38\xff\x77\xff\x7c\xff\x66\xff\x00\x00\x56\xff\x2b\xff\x28\xff\x53\xff\x45\xff\x00\x00\x57\xff\x51\xff\x52\xff\x31\xff\x00\x00\x00\x00\x00\x00\x25\xff\x00\x00\x5a\xff\x56\xff\x3e\xff\x2e\xff\x2c\xff\x73\xff\xa0\xff\xb0\xff\x9c\xff\xab\xff\x96\xff\x00\x00\x00\x00\x9e\xff\x00\x00\x9a\xff\x94\xff\xb8\xff\xb9\xff\x00\x00\x98\xff\xb1\xff\x00\x00\x00\x00\xa2\xff\x00\x00\xd5\xff\x00\x00\xd0\xff\xe4\xff\xe5\xff\xca\xff\xdf\xff\xcc\xff\xe0\xff\xdc\xff\x00\x00\xda\xff\xda\xff\x00\x00\x00\x00\xe1\xff\xd9\xff\x00\x00\xde\xff\xcd\xff\x00\x00\x00\x00\xcf\xff\xce\xff\x00\x00\x00\x00\xa1\xff\xc8\xff\xc7\xff\x97\xff\xa4\xff\x21\xff\x93\xff\xa8\xff\x00\x00\x99\xff\xde\xff\x9d\xff\xaf\xff\xa3\xff\x95\xff\xad\xff\xaa\xff\xae\xff\x00\x00\x9b\xff\x22\xff\x20\xff\x3b\xff\x9f\xff\x4f\xff\x70\xff\x26\xff\x00\x00\x8d\xff\x61\xff\x2f\xff\x4d\xff\x43\xff\x72\xff\x27\xff\x24\xff\x00\x00\xab\xff\x00\x00\x00\x00\x00\x00\x94\xff\xa5\xff\x00\x00\xc6\xff\xe3\xff\x00\x00\x00\x00\xcb\xff\x00\x00\xd6\xff\xda\xff\x00\x00\xf0\xff\xd8\xff\xe2\xff\xc9\xff\x00\x00\xd4\xff\xc5\xff\x92\xff\x00\x00\x00\x00\xac\xff\xa9\xff\x00\x00\x00\x00\xb3\xff\xa7\xff\x00\x00\x00\x00\xef\xff\x00\x00\xf3\xff\xf0\xff\x00\x00\xd3\xff\x23\xff\xec\xff\xf1\xff\xee\xff\xed\xff\xeb\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xea\xff\xe9\xff"#
+happyDefActions = HappyA# "\xf6\xff\xd2\xff\x1d\xff\x00\x00\x00\x00\xfb\xff\x89\xff\x85\xff\x84\xff\x7a\xff\x76\xff\x6c\xff\x67\xff\x5c\xff\x00\x00\x86\xff\x00\x00\x8c\xff\x3a\xff\x00\x00\x83\xff\x33\xff\x3a\xff\x00\x00\x48\xff\x46\xff\x45\xff\x47\xff\x49\xff\x00\x00\x81\xff\x00\x00\x8c\xff\x00\x00\x00\x00\x00\x00\x00\x00\xfa\xff\xf9\xff\xf8\xff\x00\x00\xde\xff\x00\x00\x00\x00\x00\x00\x00\x00\xd1\xff\x00\x00\xd2\xff\xf5\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf4\xff\x1a\xff\x1b\xff\x00\x00\x1c\xff\x00\x00\x00\x00\x00\x00\x1e\xff\x5b\xff\x89\xff\x00\x00\x8c\xff\x00\x00\x00\x00\x5b\xff\x00\x00\x91\xff\x00\x00\x8b\xff\x00\x00\x8c\xff\x29\xff\x00\x00\x6b\xff\x3c\xff\x39\xff\x00\x00\x3a\xff\x3b\xff\x35\xff\x32\xff\x00\x00\x00\x00\x00\x00\x82\xff\x89\xff\x00\x00\x00\x00\x00\x00\x91\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x75\xff\x00\x00\x00\x00\x6d\xff\x8c\xff\x4b\xff\x79\xff\x00\x00\x8c\xff\x61\xff\x62\xff\x63\xff\x69\xff\x6a\xff\x68\xff\x64\xff\x7f\xff\x88\xff\x00\x00\x00\x00\x00\x00\x00\x00\x7b\xff\x80\xff\x87\xff\x00\x00\x7e\xff\x33\xff\x00\x00\x00\x00\x00\x00\x3a\xff\x00\x00\x57\xff\x53\xff\x54\xff\x40\xff\x00\x00\x28\xff\x00\x00\x44\xff\x00\x00\x30\xff\x58\xff\x00\x00\x00\x00\x8c\xff\x00\x00\x00\x00\x00\x00\x5a\xff\x00\x00\x00\x00\x91\xff\x4d\xff\x41\xff\x3e\xff\x00\x00\x2c\xff\x00\x00\x00\x00\x5b\xff\x00\x00\xdd\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x17\xff\x19\xff\x18\xff\x15\xff\x16\xff\x00\x00\xe7\xff\xe6\xff\x00\x00\x00\x00\xe8\xff\xdb\xff\x00\x00\x00\x00\x91\xff\xf2\xff\xd7\xff\x00\x00\x00\x00\xcd\xff\x00\x00\x00\x00\x00\x00\x14\xff\x91\xff\x00\x00\xb2\xff\x00\x00\xbf\xff\x00\x00\x00\x00\xb6\xff\x00\x00\x00\x00\x00\x00\xb4\xff\xa6\xff\x00\x00\xbe\xff\x00\x00\xbd\xff\xb5\xff\xbb\xff\xbc\xff\xba\xff\x00\x00\xc3\xff\x00\x00\x00\x00\x00\x00\xb7\xff\xc1\xff\x91\xff\x00\x00\xc2\xff\xc0\xff\x20\xff\x00\x00\xc4\xff\x70\xff\x00\x00\x57\xff\x00\x00\x74\xff\x00\x00\x00\x00\x00\x00\x4f\xff\x00\x00\x6e\xff\x5b\xff\x25\xff\x8f\xff\x8e\xff\x8a\xff\x5f\xff\x00\x00\x34\xff\x2f\xff\x00\x00\x00\x00\x91\xff\x00\x00\x43\xff\x00\x00\x5d\xff\x29\xff\x00\x00\x3f\xff\x00\x00\x00\x00\x38\xff\x66\xff\x00\x00\x00\x00\x35\xff\x31\xff\x00\x00\x00\x00\x7d\xff\x00\x00\x90\xff\x00\x00\x4a\xff\x91\xff\x5e\xff\x78\xff\x37\xff\x77\xff\x7c\xff\x65\xff\x00\x00\x55\xff\x2a\xff\x27\xff\x52\xff\x44\xff\x00\x00\x56\xff\x50\xff\x51\xff\x30\xff\x00\x00\x00\x00\x00\x00\x24\xff\x00\x00\x59\xff\x55\xff\x3d\xff\x2d\xff\x2b\xff\x73\xff\x72\xff\xa0\xff\xb0\xff\x9c\xff\xab\xff\x96\xff\x00\x00\x00\x00\x9e\xff\x00\x00\x9a\xff\x94\xff\xb8\xff\xb9\xff\x00\x00\x98\xff\xb1\xff\x00\x00\x00\x00\xa2\xff\x00\x00\xd5\xff\x00\x00\xd0\xff\xe4\xff\xe5\xff\xca\xff\xdf\xff\xcc\xff\xe0\xff\xdc\xff\x00\x00\xda\xff\xda\xff\x00\x00\x00\x00\xe1\xff\xd9\xff\x00\x00\xde\xff\xcd\xff\x00\x00\x00\x00\xcf\xff\xce\xff\x00\x00\x00\x00\xa1\xff\xc8\xff\xc7\xff\x97\xff\xa4\xff\x20\xff\x93\xff\xa8\xff\x00\x00\x99\xff\xde\xff\x9d\xff\xaf\xff\xa3\xff\x95\xff\xad\xff\xaa\xff\xae\xff\x00\x00\x9b\xff\x21\xff\x1f\xff\x3a\xff\x9f\xff\x4e\xff\x6f\xff\x25\xff\x00\x00\x8d\xff\x60\xff\x2e\xff\x4c\xff\x42\xff\x71\xff\x26\xff\x23\xff\x00\x00\xab\xff\x00\x00\x00\x00\x00\x00\x94\xff\xa5\xff\x00\x00\xc6\xff\xe3\xff\x00\x00\x00\x00\xcb\xff\x00\x00\xd6\xff\xda\xff\x00\x00\xf0\xff\xd8\xff\xe2\xff\xc9\xff\x00\x00\xd4\xff\xc5\xff\x92\xff\x00\x00\x00\x00\xac\xff\xa9\xff\x00\x00\x00\x00\xb3\xff\xa7\xff\x00\x00\x00\x00\xef\xff\x00\x00\xf3\xff\xf0\xff\x00\x00\xd3\xff\x22\xff\xec\xff\xf1\xff\xee\xff\xed\xff\xeb\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xea\xff\xe9\xff"#
 
 happyCheck :: HappyAddr
-happyCheck = HappyA# "\xff\xff\x03\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x19\x00\x00\x00\x00\x00\x15\x00\x05\x00\x00\x00\x03\x00\x19\x00\x05\x00\x02\x00\x1a\x00\x00\x00\x00\x00\x03\x00\x05\x00\x05\x00\x0d\x00\x0a\x00\x00\x00\x10\x00\x05\x00\x0b\x00\x00\x00\x12\x00\x0b\x00\x0f\x00\x10\x00\x0a\x00\x19\x00\x0a\x00\x12\x00\x15\x00\x03\x00\x0c\x00\x05\x00\x19\x00\x12\x00\x1a\x00\x1b\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x10\x00\x24\x00\x24\x00\x25\x00\x27\x00\x4b\x00\x00\x00\x2a\x00\x2a\x00\x19\x00\x2d\x00\x36\x00\x4b\x00\x4b\x00\x4b\x00\x32\x00\x3c\x00\x3d\x00\x18\x00\x2a\x00\x4d\x00\x50\x00\x4d\x00\x4e\x00\x4d\x00\x4e\x00\x4d\x00\x3e\x00\x4d\x00\x4b\x00\x4d\x00\x42\x00\x43\x00\x4b\x00\x4c\x00\x4d\x00\x03\x00\x48\x00\x05\x00\x4b\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x0b\x00\x4b\x00\x4a\x00\x00\x00\x0f\x00\x10\x00\x00\x00\x4b\x00\x4c\x00\x00\x00\x15\x00\x00\x00\x00\x00\x00\x00\x01\x00\x4b\x00\x4c\x00\x4d\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x2c\x00\x24\x00\x00\x00\x2f\x00\x27\x00\x00\x00\x00\x00\x2a\x00\x15\x00\x16\x00\x2d\x00\x00\x00\x01\x00\x02\x00\x04\x00\x32\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0a\x00\x03\x00\x02\x00\x05\x00\x2a\x00\x18\x00\x06\x00\x3e\x00\x00\x00\x0b\x00\x2a\x00\x42\x00\x43\x00\x0f\x00\x10\x00\x35\x00\x50\x00\x48\x00\x38\x00\x15\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x2a\x00\x3c\x00\x3d\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x2c\x00\x24\x00\x35\x00\x2f\x00\x27\x00\x38\x00\x1f\x00\x2a\x00\x2d\x00\x33\x00\x34\x00\x0d\x00\x3c\x00\x3d\x00\x02\x00\x32\x00\x29\x00\x06\x00\x37\x00\x07\x00\x00\x00\x03\x00\x40\x00\x05\x00\x42\x00\x1b\x00\x1c\x00\x3e\x00\x00\x00\x0b\x00\x13\x00\x42\x00\x43\x00\x0f\x00\x10\x00\x00\x00\x49\x00\x48\x00\x00\x00\x02\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x07\x00\x00\x00\x1a\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x09\x00\x24\x00\x1b\x00\x24\x00\x27\x00\x00\x00\x01\x00\x02\x00\x1a\x00\x2a\x00\x13\x00\x14\x00\x25\x00\x16\x00\x17\x00\x18\x00\x1f\x00\x03\x00\x24\x00\x05\x00\x4b\x00\x4c\x00\x08\x00\x0e\x00\x2a\x00\x0b\x00\x29\x00\x3e\x00\x00\x00\x0f\x00\x10\x00\x42\x00\x43\x00\x00\x00\x2a\x00\x2b\x00\x2c\x00\x48\x00\x4a\x00\x2d\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x03\x00\x0e\x00\x05\x00\x3a\x00\x27\x00\x15\x00\x16\x00\x33\x00\x0b\x00\x00\x00\x01\x00\x02\x00\x0f\x00\x10\x00\x3a\x00\x49\x00\x00\x00\x00\x00\x00\x00\x01\x00\x02\x00\x2a\x00\x2b\x00\x2c\x00\x00\x00\x45\x00\x46\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x03\x00\x10\x00\x05\x00\x12\x00\x27\x00\x00\x00\x00\x00\x0a\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x00\x00\x10\x00\x04\x00\x17\x00\x2f\x00\x03\x00\x31\x00\x05\x00\x0a\x00\x00\x00\x19\x00\x12\x00\x14\x00\x0b\x00\x22\x00\x00\x00\x33\x00\x0f\x00\x10\x00\x00\x00\x01\x00\x02\x00\x2a\x00\x3a\x00\x00\x00\x33\x00\x34\x00\x00\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x03\x00\x40\x00\x05\x00\x42\x00\x27\x00\x2a\x00\x2b\x00\x2c\x00\x0b\x00\x00\x00\x01\x00\x02\x00\x0f\x00\x10\x00\x2a\x00\x2b\x00\x2c\x00\x00\x00\x01\x00\x02\x00\x2a\x00\x2b\x00\x2c\x00\x4b\x00\x4c\x00\x4d\x00\x4a\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x06\x00\x33\x00\x34\x00\x00\x00\x27\x00\x03\x00\x04\x00\x05\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x0a\x00\x13\x00\x11\x00\x0d\x00\x0e\x00\x03\x00\x10\x00\x05\x00\x00\x00\x01\x00\x02\x00\x03\x00\x16\x00\x0b\x00\x00\x00\x19\x00\x33\x00\x0f\x00\x10\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3a\x00\x33\x00\x34\x00\x00\x00\x00\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x00\x00\x01\x00\x02\x00\x03\x00\x27\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x00\x00\x01\x00\x02\x00\x00\x00\x19\x00\x19\x00\x2d\x00\x2e\x00\x2f\x00\x2a\x00\x2b\x00\x2c\x00\x09\x00\x00\x00\x23\x00\x23\x00\x37\x00\x2d\x00\x4b\x00\x4c\x00\x4d\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x02\x00\x37\x00\x00\x00\x01\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x00\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x00\x00\x01\x00\x02\x00\x00\x00\x37\x00\x33\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x00\x00\x3e\x00\x3a\x00\x00\x00\x00\x00\x47\x00\x48\x00\x2a\x00\x2b\x00\x2c\x00\x47\x00\x48\x00\x00\x00\x45\x00\x46\x00\x00\x00\x33\x00\x34\x00\x00\x00\x33\x00\x34\x00\x02\x00\x39\x00\x1e\x00\x3b\x00\x39\x00\x17\x00\x3b\x00\x00\x00\x01\x00\x02\x00\x26\x00\x43\x00\x44\x00\x00\x00\x43\x00\x44\x00\x22\x00\x4b\x00\x4c\x00\x00\x00\x33\x00\x34\x00\x00\x00\x20\x00\x2a\x00\x00\x00\x39\x00\x33\x00\x3b\x00\x10\x00\x27\x00\x12\x00\x04\x00\x2a\x00\x3a\x00\x00\x00\x43\x00\x44\x00\x04\x00\x05\x00\x18\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x02\x00\x00\x00\x00\x00\x1e\x00\x00\x00\x01\x00\x02\x00\x1c\x00\x1d\x00\x21\x00\x00\x00\x26\x00\x33\x00\x34\x00\x00\x00\x0d\x00\x28\x00\x0f\x00\x39\x00\x25\x00\x3b\x00\x27\x00\x28\x00\x29\x00\x04\x00\x2b\x00\x00\x00\x00\x00\x43\x00\x44\x00\x10\x00\x25\x00\x12\x00\x33\x00\x34\x00\x35\x00\x36\x00\x2b\x00\x00\x00\x39\x00\x00\x00\x3b\x00\x3c\x00\x3d\x00\x2a\x00\x3f\x00\x33\x00\x34\x00\x00\x00\x33\x00\x44\x00\x45\x00\x39\x00\x47\x00\x3b\x00\x33\x00\x3a\x00\x25\x00\x00\x00\x27\x00\x28\x00\x29\x00\x3a\x00\x2b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0c\x00\x4b\x00\x00\x00\x33\x00\x34\x00\x35\x00\x36\x00\x00\x00\x00\x00\x39\x00\x04\x00\x3b\x00\x3c\x00\x3d\x00\x0e\x00\x3f\x00\x0a\x00\x0c\x00\x0d\x00\x0d\x00\x44\x00\x45\x00\x20\x00\x47\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x27\x00\x1c\x00\x1d\x00\x2a\x00\x06\x00\x45\x00\x00\x00\x01\x00\x02\x00\x03\x00\x20\x00\x20\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x27\x00\x27\x00\x06\x00\x2a\x00\x2a\x00\x37\x00\x00\x00\x00\x00\x01\x00\x02\x00\x03\x00\x07\x00\x3e\x00\x3f\x00\x0a\x00\x41\x00\x00\x00\x01\x00\x02\x00\x03\x00\x05\x00\x4b\x00\x12\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x37\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x21\x00\x3e\x00\x3f\x00\x04\x00\x41\x00\x37\x00\x02\x00\x28\x00\x06\x00\x06\x00\x3c\x00\x3d\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3c\x00\x3d\x00\x3e\x00\x01\x00\x37\x00\x06\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x4b\x00\x01\x00\x0c\x00\x4b\x00\x00\x00\x00\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x07\x00\x08\x00\x0d\x00\x07\x00\x0e\x00\x2d\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x2d\x00\x2e\x00\x2f\x00\x17\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0e\x00\x37\x00\x3e\x00\x02\x00\x4b\x00\x22\x00\x2d\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x2a\x00\x00\x00\x00\x00\x0a\x00\x37\x00\x4b\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x0b\x00\x3e\x00\x17\x00\x17\x00\x00\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x07\x00\x08\x00\x22\x00\x22\x00\x0a\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2a\x00\x2a\x00\x3e\x00\x08\x00\x02\x00\x04\x00\x4b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x4b\x00\x01\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x1b\x00\x3e\x00\x4b\x00\x04\x00\x04\x00\x04\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x06\x00\x0c\x00\x4b\x00\x00\x00\x11\x00\x37\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x04\x00\x3e\x00\x01\x00\x06\x00\x02\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x11\x00\x2d\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0a\x00\x37\x00\x20\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x27\x00\x02\x00\x4b\x00\x2a\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x04\x00\x3e\x00\x01\x00\x01\x00\x07\x00\x02\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x01\x00\x4b\x00\x02\x00\x01\x00\x01\x00\x37\x00\x02\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x01\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x01\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x4b\x00\x3e\x00\x09\x00\x23\x00\x38\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x37\x00\x3e\x00\x4b\x00\x04\x00\x00\x00\x07\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x37\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x17\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x37\x00\x04\x00\x16\x00\x0e\x00\x22\x00\x0c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x04\x00\x2a\x00\x01\x00\x01\x00\x4b\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4b\x00\x04\x00\x3e\x00\x04\x00\x01\x00\x03\x00\x08\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x16\x00\x0d\x00\x00\x00\x00\x00\x06\x00\x37\x00\x0d\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4d\x00\x4b\x00\x3e\x00\x17\x00\x17\x00\x4b\x00\x4b\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x03\x00\x07\x00\x22\x00\x22\x00\x04\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2a\x00\x2a\x00\x3e\x00\x4b\x00\x06\x00\x0c\x00\x11\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0a\x00\x07\x00\x0a\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x08\x00\x3e\x00\x37\x00\x2d\x00\x01\x00\x4b\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x0a\x00\x03\x00\x01\x00\x01\x00\x4b\x00\x37\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x02\x00\x3e\x00\x02\x00\x50\x00\x4b\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x03\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x50\x00\x37\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x4b\x00\x3e\x00\x08\x00\x50\x00\x23\x00\x0d\x00\x12\x00\x26\x00\x4b\x00\x2e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\xff\xff\xff\xff\x30\x00\x31\x00\xff\xff\x37\x00\xff\xff\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x00\x00\xff\xff\xff\xff\xff\xff\x37\x00\x40\x00\xff\xff\x2d\x00\x2e\x00\xff\xff\x45\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\xff\xff\xff\xff\xff\xff\xff\xff\x37\x00\x17\x00\x25\x00\xff\xff\x27\x00\x28\x00\x29\x00\x3e\x00\x2b\x00\xff\xff\xff\xff\xff\xff\x22\x00\xff\xff\xff\xff\xff\xff\x33\x00\x34\x00\x35\x00\x36\x00\x2a\x00\xff\xff\x39\x00\xff\xff\x3b\x00\x3c\x00\x3d\x00\x41\x00\x3f\x00\xff\xff\xff\xff\xff\xff\x46\x00\x44\x00\x45\x00\xff\xff\x47\x00\x4b\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"#
+happyCheck = HappyA# "\xff\xff\x03\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x19\x00\x00\x00\x00\x00\x15\x00\x05\x00\x00\x00\x03\x00\x19\x00\x05\x00\x02\x00\x1a\x00\x00\x00\x00\x00\x03\x00\x05\x00\x05\x00\x0d\x00\x0a\x00\x00\x00\x10\x00\x05\x00\x0b\x00\x00\x00\x12\x00\x0b\x00\x0f\x00\x10\x00\x0a\x00\x19\x00\x0a\x00\x12\x00\x15\x00\x03\x00\x0c\x00\x05\x00\x19\x00\x12\x00\x1a\x00\x1b\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x10\x00\x24\x00\x24\x00\x25\x00\x27\x00\x4b\x00\x00\x00\x2a\x00\x2a\x00\x19\x00\x2d\x00\x36\x00\x4b\x00\x4b\x00\x4b\x00\x32\x00\x3c\x00\x3d\x00\x18\x00\x2a\x00\x4d\x00\x50\x00\x4d\x00\x4e\x00\x4d\x00\x4e\x00\x4d\x00\x3e\x00\x4d\x00\x4b\x00\x4d\x00\x42\x00\x43\x00\x4b\x00\x4c\x00\x4d\x00\x03\x00\x48\x00\x05\x00\x4b\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x0b\x00\x4b\x00\x4a\x00\x00\x00\x0f\x00\x10\x00\x00\x00\x4b\x00\x4c\x00\x00\x00\x15\x00\x00\x00\x00\x00\x00\x00\x01\x00\x4b\x00\x4c\x00\x4d\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x2c\x00\x24\x00\x00\x00\x2f\x00\x27\x00\x00\x00\x03\x00\x2a\x00\x15\x00\x16\x00\x2d\x00\x00\x00\x01\x00\x02\x00\x0b\x00\x32\x00\x00\x00\x01\x00\x02\x00\x03\x00\x18\x00\x03\x00\x02\x00\x05\x00\x2a\x00\x00\x00\x06\x00\x3e\x00\x00\x00\x0b\x00\x2a\x00\x42\x00\x43\x00\x0f\x00\x10\x00\x35\x00\x50\x00\x48\x00\x38\x00\x15\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x2a\x00\x3c\x00\x3d\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x2c\x00\x24\x00\x35\x00\x2f\x00\x27\x00\x38\x00\x1f\x00\x2a\x00\x2d\x00\x33\x00\x34\x00\x0d\x00\x3c\x00\x3d\x00\x02\x00\x32\x00\x29\x00\x06\x00\x37\x00\x07\x00\x00\x00\x03\x00\x40\x00\x05\x00\x42\x00\x1b\x00\x1c\x00\x3e\x00\x00\x00\x0b\x00\x13\x00\x42\x00\x43\x00\x0f\x00\x10\x00\x00\x00\x49\x00\x48\x00\x00\x00\x02\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x07\x00\x00\x00\x1a\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x09\x00\x24\x00\x1b\x00\x24\x00\x27\x00\x00\x00\x01\x00\x02\x00\x1a\x00\x2a\x00\x13\x00\x14\x00\x25\x00\x16\x00\x17\x00\x18\x00\x1f\x00\x03\x00\x24\x00\x05\x00\x4b\x00\x4c\x00\x08\x00\x0e\x00\x2a\x00\x0b\x00\x29\x00\x3e\x00\x00\x00\x0f\x00\x10\x00\x42\x00\x43\x00\x00\x00\x2a\x00\x2b\x00\x2c\x00\x48\x00\x4a\x00\x2d\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x03\x00\x0e\x00\x05\x00\x3a\x00\x27\x00\x15\x00\x16\x00\x33\x00\x0b\x00\x00\x00\x01\x00\x02\x00\x0f\x00\x10\x00\x3a\x00\x49\x00\x00\x00\x00\x00\x00\x00\x01\x00\x02\x00\x2a\x00\x2b\x00\x2c\x00\x00\x00\x45\x00\x46\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x03\x00\x10\x00\x05\x00\x12\x00\x27\x00\x00\x00\x00\x00\x0a\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x00\x00\x10\x00\x04\x00\x17\x00\x2f\x00\x03\x00\x31\x00\x05\x00\x0a\x00\x00\x00\x19\x00\x12\x00\x14\x00\x0b\x00\x22\x00\x00\x00\x33\x00\x0f\x00\x10\x00\x00\x00\x01\x00\x02\x00\x2a\x00\x3a\x00\x00\x00\x33\x00\x34\x00\x00\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x03\x00\x40\x00\x05\x00\x42\x00\x27\x00\x2a\x00\x2b\x00\x2c\x00\x0b\x00\x00\x00\x01\x00\x02\x00\x0f\x00\x10\x00\x2a\x00\x2b\x00\x2c\x00\x00\x00\x01\x00\x02\x00\x2a\x00\x2b\x00\x2c\x00\x4b\x00\x4c\x00\x4d\x00\x4a\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x06\x00\x33\x00\x34\x00\x00\x00\x27\x00\x03\x00\x04\x00\x05\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x0a\x00\x13\x00\x11\x00\x0d\x00\x0e\x00\x03\x00\x10\x00\x05\x00\x00\x00\x01\x00\x02\x00\x03\x00\x16\x00\x0b\x00\x00\x00\x19\x00\x33\x00\x0f\x00\x10\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3a\x00\x33\x00\x34\x00\x00\x00\x00\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x00\x00\x01\x00\x02\x00\x03\x00\x27\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x00\x00\x01\x00\x02\x00\x00\x00\x19\x00\x19\x00\x2d\x00\x2e\x00\x2f\x00\x2a\x00\x2b\x00\x2c\x00\x09\x00\x00\x00\x23\x00\x23\x00\x37\x00\x2d\x00\x4b\x00\x4c\x00\x4d\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x02\x00\x37\x00\x00\x00\x01\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x00\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x00\x00\x01\x00\x02\x00\x00\x00\x37\x00\x33\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x00\x00\x3e\x00\x3a\x00\x00\x00\x00\x00\x47\x00\x48\x00\x2a\x00\x2b\x00\x2c\x00\x47\x00\x48\x00\x00\x00\x45\x00\x46\x00\x04\x00\x33\x00\x34\x00\x00\x00\x33\x00\x34\x00\x0a\x00\x39\x00\x1e\x00\x3b\x00\x39\x00\x17\x00\x3b\x00\x00\x00\x01\x00\x02\x00\x26\x00\x43\x00\x44\x00\x00\x00\x43\x00\x44\x00\x22\x00\x4b\x00\x4c\x00\x00\x00\x33\x00\x34\x00\x00\x00\x20\x00\x2a\x00\x00\x00\x39\x00\x33\x00\x3b\x00\x10\x00\x27\x00\x12\x00\x04\x00\x2a\x00\x3a\x00\x00\x00\x43\x00\x44\x00\x04\x00\x05\x00\x02\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x02\x00\x00\x00\x00\x00\x1e\x00\x00\x00\x01\x00\x02\x00\x1c\x00\x1d\x00\x21\x00\x18\x00\x26\x00\x33\x00\x34\x00\x00\x00\x0d\x00\x28\x00\x0f\x00\x39\x00\x25\x00\x3b\x00\x27\x00\x28\x00\x29\x00\x04\x00\x2b\x00\x00\x00\x00\x00\x43\x00\x44\x00\x10\x00\x25\x00\x12\x00\x33\x00\x34\x00\x35\x00\x36\x00\x2b\x00\x00\x00\x39\x00\x00\x00\x3b\x00\x3c\x00\x3d\x00\x2a\x00\x3f\x00\x33\x00\x34\x00\x00\x00\x33\x00\x44\x00\x45\x00\x39\x00\x47\x00\x3b\x00\x33\x00\x3a\x00\x25\x00\x00\x00\x27\x00\x28\x00\x29\x00\x3a\x00\x2b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x4b\x00\x00\x00\x33\x00\x34\x00\x35\x00\x36\x00\x00\x00\x00\x00\x39\x00\x04\x00\x3b\x00\x3c\x00\x3d\x00\x00\x00\x3f\x00\x0a\x00\x0c\x00\x0d\x00\x0d\x00\x44\x00\x45\x00\x20\x00\x47\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0c\x00\x27\x00\x1c\x00\x1d\x00\x2a\x00\x0e\x00\x00\x00\x00\x00\x01\x00\x02\x00\x03\x00\x20\x00\x20\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x27\x00\x27\x00\x06\x00\x2a\x00\x2a\x00\x37\x00\x00\x00\x00\x00\x01\x00\x02\x00\x03\x00\x07\x00\x3e\x00\x3f\x00\x0a\x00\x41\x00\x00\x00\x01\x00\x02\x00\x03\x00\x06\x00\x45\x00\x12\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x05\x00\x37\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x21\x00\x3e\x00\x3f\x00\x4b\x00\x41\x00\x37\x00\x04\x00\x28\x00\x01\x00\x06\x00\x3c\x00\x3d\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x37\x00\x02\x00\x06\x00\x01\x00\x06\x00\x3c\x00\x3d\x00\x3e\x00\x4b\x00\x37\x00\x01\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x41\x00\x00\x00\x01\x00\x02\x00\x03\x00\x46\x00\x3e\x00\x07\x00\x0c\x00\x4b\x00\x4b\x00\x02\x00\x0e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0d\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x2d\x00\x0e\x00\x02\x00\x0a\x00\x2d\x00\x4b\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x2d\x00\x2e\x00\x2f\x00\x02\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x37\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x4b\x00\x3e\x00\x0a\x00\x08\x00\x0b\x00\x37\x00\x02\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x2e\x00\x3e\x00\x03\x00\x00\x00\x4b\x00\x4b\x00\x04\x00\x01\x00\x4b\x00\x37\x00\x07\x00\x08\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x1b\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x06\x00\x04\x00\x3e\x00\x04\x00\x04\x00\x0c\x00\x00\x00\x4b\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x11\x00\x3e\x00\x04\x00\x01\x00\x11\x00\x17\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x22\x00\x2d\x00\x2e\x00\x2f\x00\x02\x00\x37\x00\x06\x00\x0a\x00\x2a\x00\x2d\x00\x02\x00\x37\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x04\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x07\x00\x08\x00\x01\x00\x0c\x00\x01\x00\x37\x00\x01\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x07\x00\x3e\x00\x01\x00\x4b\x00\x02\x00\x01\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x02\x00\x3e\x00\x02\x00\x01\x00\x01\x00\x01\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4b\x00\x23\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x09\x00\x38\x00\x03\x00\x37\x00\x37\x00\x37\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x07\x00\x04\x00\x04\x00\x01\x00\x16\x00\x37\x00\x4b\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0e\x00\x0c\x00\x3e\x00\x04\x00\x01\x00\x01\x00\x04\x00\x4b\x00\x01\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x4b\x00\x3e\x00\x04\x00\x0d\x00\x00\x00\x08\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x03\x00\x16\x00\x4b\x00\x4d\x00\x37\x00\x17\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x22\x00\x06\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x4b\x00\x2a\x00\x4b\x00\x0d\x00\x03\x00\x37\x00\x04\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4b\x00\x07\x00\x3e\x00\x06\x00\x0c\x00\x11\x00\x07\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x0a\x00\x3e\x00\x08\x00\x00\x00\x00\x00\x37\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0a\x00\x4b\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x00\x00\x00\x00\x17\x00\x17\x00\x37\x00\x00\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3e\x00\x2d\x00\x22\x00\x22\x00\x01\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2a\x00\x2a\x00\x17\x00\x17\x00\x00\x00\x37\x00\x0a\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x22\x00\x22\x00\x01\x00\x20\x00\x37\x00\x4b\x00\x02\x00\x02\x00\x2a\x00\x2a\x00\x27\x00\x3e\x00\x01\x00\x2a\x00\x17\x00\x50\x00\x4b\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x03\x00\x50\x00\x22\x00\x03\x00\x4b\x00\x37\x00\x03\x00\x08\x00\x50\x00\x0d\x00\x2a\x00\x25\x00\x3e\x00\x27\x00\x28\x00\x29\x00\x12\x00\x2b\x00\x2e\x00\xff\xff\x4b\x00\xff\xff\xff\xff\xff\xff\xff\xff\x33\x00\x34\x00\x35\x00\x36\x00\xff\xff\xff\xff\x39\x00\xff\xff\x3b\x00\x3c\x00\x3d\x00\x23\x00\x3f\x00\xff\xff\x26\x00\xff\xff\xff\xff\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x30\x00\x31\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x40\x00\xff\xff\xff\xff\xff\xff\xff\xff\x45\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"#
 
 happyTable :: HappyAddr
-happyTable = HappyA# "\x00\x00\x50\x00\x3b\x00\x3b\x00\x3c\x00\x3b\x00\x3c\x00\x3b\x00\x3c\x00\x3b\x00\x3c\x00\x3b\x00\x3c\x00\x3b\x00\x3c\x00\x58\x00\x53\x00\x71\x00\x57\x00\x57\x01\x54\x01\x95\x00\x58\x00\x96\x00\x44\x01\x74\x00\xf0\x00\x54\x01\x12\x00\x77\x01\x13\x00\x00\x01\x7f\x00\x54\x01\x97\x00\x57\x01\x14\x00\x4b\x00\xc5\x01\xc0\x01\x15\x00\x16\x00\x7f\x00\x98\x00\xbf\x01\xc6\x01\x17\x00\x95\x00\x5e\x00\x96\x00\x58\x00\x9b\x01\xe9\x00\xf1\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x97\x00\x1e\x00\xf2\x00\xf3\x00\x1f\x00\x06\x00\xb3\x01\x20\x00\xeb\x00\x98\x00\x62\x00\x72\x00\x06\x00\x06\x00\x06\x00\x21\x00\x54\x00\x16\x01\xaa\x00\x9d\x01\xbc\x00\xff\xff\x3d\x00\xd3\x00\x3d\x00\x3e\x00\xbd\x00\x22\x00\xbe\x00\x06\x00\xc0\x00\x23\x00\x24\x00\x06\x00\x26\x00\x27\x00\x12\x00\x25\x00\x13\x00\x06\x00\x06\x00\x26\x00\x27\x00\x28\x00\x14\x00\x06\x00\x61\x01\xab\x01\x15\x00\x16\x00\x4b\x00\x06\x00\x26\x00\x53\x00\x17\x00\x59\x01\x4b\x00\xa0\x00\x5c\x00\x06\x00\x26\x00\x27\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x2e\x00\x1e\x00\x0c\x01\x2f\x00\x1f\x00\x53\x00\xad\x01\x20\x00\x9e\x01\x5b\x01\x62\x00\xf8\x00\x8e\x00\x8f\x00\x7e\x00\x21\x00\x44\x00\x07\x00\x08\x00\x09\x00\x7f\x00\x12\x00\xa8\x01\x13\x00\x0d\x01\xaa\x00\xa9\x01\x22\x00\x73\x01\x14\x00\x20\x01\x23\x00\x24\x00\x15\x00\x16\x00\x0e\x01\xf7\xff\x25\x00\x8e\x01\x17\x00\x06\x00\x26\x00\x27\x00\x28\x00\x0d\x01\x54\x00\x89\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x2e\x00\x1e\x00\x0e\x01\x2f\x00\x1f\x00\x0f\x01\x74\x01\x20\x00\x82\x01\xa2\x00\x08\x01\x40\x00\x54\x00\x55\x00\x51\x01\x21\x00\xaa\x01\x31\x00\x0f\x00\x52\x01\x4b\x00\x12\x00\x09\x01\x48\x00\x8c\x01\x41\x00\x42\x00\x22\x00\x80\x01\x14\x00\x2c\x00\x23\x00\x24\x00\x15\x00\x16\x00\x4b\x00\x83\x01\x25\x00\x73\x01\x9c\x00\x06\x00\x26\x00\x27\x00\x28\x00\x9d\x00\x4b\x00\xe9\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x66\x00\x1e\x00\xf1\x00\x79\x01\x1f\x00\x8d\x00\x8e\x00\x8f\x00\xe9\x00\xeb\x00\x67\x00\x68\x00\x81\x01\x69\x00\x6a\x00\x6b\x00\x74\x01\x12\x00\xea\x00\x48\x00\x06\x00\x26\x00\x37\xff\x95\x01\xeb\x00\x14\x00\x75\x01\x22\x00\x4b\x00\x15\x00\x16\x00\x23\x00\x24\x00\x59\x01\x4c\x00\x4d\x00\x05\x01\x25\x00\x98\x01\xc4\x01\x06\x00\x26\x00\x27\x00\x28\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x71\x00\x9f\x01\x85\x01\xc5\x01\x1f\x00\x5a\x01\x5b\x01\x90\x00\x49\x00\x8d\x00\x8e\x00\x8f\x00\x15\x00\x16\x00\x91\x00\x6c\x00\x9c\x01\x54\x01\xf8\x00\x8e\x00\x8f\x00\x4c\x00\x4d\x00\x21\x01\xd4\x00\x92\x00\x2d\x01\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x95\x00\xa4\x01\x96\x00\x64\x01\x1f\x00\x54\x01\xa2\x01\x7f\x00\x06\x00\x26\x00\x27\x00\x28\x00\x23\x01\x97\x00\x32\x01\xd5\x00\x6b\x01\x12\x00\x6c\x01\x48\x00\x7f\x00\x4b\x00\x98\x00\x55\x01\x69\x01\x14\x00\x6e\x01\x4b\x00\x90\x00\x15\x00\x16\x00\xf8\x00\x8e\x00\x8f\x00\xd7\x00\x86\x01\x7b\x01\xa2\x00\x08\x01\x2b\x01\x06\x00\x26\x00\x27\x00\x28\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x71\x00\x09\x01\x48\x00\x0a\x01\x1f\x00\x4c\x00\x4d\x00\x63\x00\x49\x00\x8d\x00\x8e\x00\x8f\x00\x15\x00\x16\x00\x4c\x00\x4d\x00\x98\x00\xf8\x00\x8e\x00\x8f\x00\x4c\x00\x4d\x00\x4e\x00\x06\x00\x26\x00\x27\x00\x41\x01\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x2b\x00\xa2\x00\x8d\x01\x3b\x01\x1f\x00\x95\x00\x7e\x00\x96\x00\x06\x00\x26\x00\x27\x00\x28\x00\x7f\x00\x2c\x00\x5e\x01\x00\x01\x58\xff\x47\x00\x97\x00\x48\x00\x06\x00\x07\x00\x08\x00\x09\x00\x58\xff\x49\x00\x62\x00\x98\x00\x90\x00\x15\x00\x16\x00\x44\x00\x07\x00\x08\x00\x09\x00\xfe\x00\xa2\x00\x0b\x01\xf4\x00\xf4\x00\x06\x00\x26\x00\x27\x00\x28\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x06\x00\x07\x00\x08\x00\x09\x00\x1f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x57\x01\x8d\x00\x8e\x00\x8f\x00\xbc\x01\xf5\x00\xf5\x00\x0a\x00\x0b\x00\x78\x00\x4c\x00\x4d\x00\x63\x00\xbd\x01\x58\x01\x85\x01\xf6\x00\x0f\x00\x6f\x00\x06\x00\x26\x00\x27\x00\xa1\x00\x8e\x00\x8f\x00\xf8\x00\x8e\x00\x8f\x00\x0f\x00\x5b\x00\x5c\x00\x06\x00\x26\x00\x27\x00\x28\x00\x5c\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x37\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x37\x01\x0f\x00\xf8\x00\x8e\x00\x8f\x00\xe0\x00\x0f\x00\x90\x00\x10\x00\x8d\x00\x8e\x00\x8f\x00\xd9\x00\x10\x00\x91\x00\xd4\x00\xe3\x00\x38\x01\x91\x01\x4c\x00\x4d\x00\x63\x00\x38\x01\x39\x01\x4b\x00\x92\x00\x93\x00\x1c\x01\xa2\x00\xa3\x00\x1f\x01\xa2\x00\xa3\x00\x22\x01\xa4\x00\xe1\x00\xa5\x00\xa4\x00\xd5\x00\xa5\x00\xf8\x00\x8e\x00\x8f\x00\x77\x01\xa6\x00\xa7\x00\x54\x01\xa6\x00\x2a\x01\xd6\x00\x28\x00\x29\x00\xe0\x00\xa2\x00\xa3\x00\xec\x00\xda\x00\xd7\x00\x7d\x01\xa4\x00\x90\x00\xa5\x00\x63\x01\x71\x01\x64\x01\xa6\x01\xdc\x00\x53\x01\x80\x00\xa6\x00\x3e\x01\x2f\x00\x30\x00\xaa\x00\xf8\x00\x8e\x00\x8f\x00\x8d\x00\x8e\x00\x8f\x00\xc1\x00\xca\x00\xe1\x00\x8d\x00\x8e\x00\x8f\x00\x7e\x01\xae\x01\xed\x00\xc2\x00\xe2\x00\xa2\x00\xa3\x00\x54\x01\xcb\x00\x7c\x01\xcc\x00\xa4\x00\xac\x00\xa5\x00\xad\x00\xae\x00\xaf\x00\xad\x01\xb0\x00\xc3\x00\xc4\x00\xa6\x00\xf9\x00\x65\x01\xde\x00\x64\x01\xb1\x00\xb2\x00\xb3\x00\xb4\x00\xdf\x00\xc5\x00\xb5\x00\xc6\x00\xb6\x00\xb7\x00\xb8\x00\xcd\x00\xb9\x00\xa2\x00\xa3\x00\x32\x00\x90\x00\xba\x00\xbb\x00\xa4\x00\xbc\x00\x3c\x01\x90\x00\xfe\x00\xac\x00\x4b\x00\xad\x00\xae\x00\xaf\x00\x13\x01\xb0\x00\x06\x00\x07\x00\x08\x00\x09\x00\x33\x00\x06\x00\x7d\x01\xb1\x00\xb2\x00\xb3\x00\xb4\x00\x4b\x00\x4b\x00\xb5\x00\x7e\x00\xb6\x00\xb7\x00\xb8\x00\x42\x00\xb9\x00\x7f\x00\x85\x00\x86\x00\x80\x00\xba\x00\xbb\x00\xda\x00\xbc\x00\x06\x00\x07\x00\x08\x00\x09\x00\x52\x00\x4b\x01\x7e\x01\x7f\x01\xdc\x00\xc8\x01\xc3\x01\x5e\x00\x07\x00\x08\x00\x09\x00\xda\x00\xda\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x1a\x01\x4c\x01\xdb\x00\xc9\x01\xdc\x00\xdc\x00\x0f\x00\xec\x00\x5e\x00\x07\x00\x08\x00\x09\x00\x3d\xff\x10\x00\x59\x00\x3d\xff\x1b\x01\x44\x00\x07\x00\x08\x00\x09\x00\xc2\x01\x06\x00\x6f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x58\x00\x06\x00\x07\x00\x08\x00\x09\x00\xb9\x01\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5f\x00\xed\x00\x10\x00\x59\x00\xb8\x01\x5a\x00\x0f\x00\xba\x01\xee\x00\xbb\x01\xbc\x01\x54\x00\x92\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x45\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x54\x00\x60\x00\x10\x00\xb2\x01\x0f\x00\xb3\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9e\x00\x3a\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\xa4\x01\xa7\x01\x06\x00\xd4\x00\xb4\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x44\x01\xb5\x01\xbe\x01\x95\x01\xb0\x01\x94\x01\x97\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9e\x00\x9f\x00\x0a\x00\x0b\x00\x79\x00\xd5\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x98\x01\x0f\x00\x10\x00\x9a\x01\x06\x00\xd8\x00\xa1\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9e\x00\xa9\x00\xd7\x00\xd4\x00\xd4\x00\xa2\x01\x0f\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xb0\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x63\x01\x69\x01\x10\x00\xd5\x00\xd5\x00\xb4\x01\x67\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xa9\x01\xb5\x01\xb6\x01\xdf\x00\xe4\x00\x68\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\xd7\x00\xd7\x00\x10\x00\x6d\x01\x6e\x01\x88\x01\x06\x00\x06\x00\x07\x00\x08\x00\x09\x00\x79\x01\x06\x00\x89\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x90\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9a\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x8a\x01\x10\x00\x06\x00\x90\x01\x25\x01\x26\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x6f\x01\x27\x01\x28\x01\x06\x00\x4b\x00\x29\x01\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x70\x01\x2f\x01\x10\x00\x30\x01\x33\x01\x31\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x34\x01\x36\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x72\x01\x06\x00\x07\x00\x08\x00\x09\x00\x35\x01\x0f\x00\xda\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x7a\x01\x10\x00\xe7\x00\x37\x01\x06\x00\xdc\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x41\x01\x40\x01\x10\x00\x43\x01\x45\x01\x47\x01\x46\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x8a\x01\x48\x01\x06\x00\x49\x01\x4a\x01\x4f\x01\x0f\x00\x4b\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x8b\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x4e\x01\x50\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x29\x01\x53\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x2c\x01\x06\x00\x10\x00\x5e\x01\x62\x01\x60\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\xca\x00\xd1\x00\x10\x00\x06\x00\xf8\x00\xd4\x00\xd3\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x3d\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x03\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\xd2\x00\x10\x00\x0a\x00\x0b\x00\x7a\x00\xd5\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\xfc\x00\x0f\x00\xfb\x00\xfd\x00\xfe\x00\xe5\x00\x85\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x04\x01\x01\x01\xd7\x00\x02\x01\x03\x01\x06\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x08\x01\x10\x00\x11\x01\x12\x01\x16\x01\x13\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x06\x01\x19\x01\x15\x01\xd4\x00\xd4\x00\x1f\x01\x0f\x00\x6e\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x17\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x27\x00\x06\x00\x10\x00\xd5\x00\xd5\x00\x06\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x19\x01\x75\x00\x82\x00\xe6\x00\xe8\x00\x7d\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\xd7\x00\xd7\x00\x10\x00\x06\x00\x83\x00\x84\x00\x87\x00\x06\x00\x07\x00\x08\x00\x09\x00\x88\x00\x89\x00\x8c\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x1d\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x75\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x8b\x00\x10\x00\x8d\x00\x9a\x00\x9b\x00\x06\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x76\x00\x7f\x00\xa9\x00\xc0\x00\x3b\x00\x06\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x77\x00\xc8\x00\x10\x00\xc9\x00\xff\xff\x06\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x44\x00\x4a\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x7b\x00\x06\x00\x07\x00\x08\x00\x09\x00\xff\xff\x0f\x00\x4b\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9d\x00\x10\x00\x44\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x51\x00\x06\x00\x10\x00\x65\x00\xff\xff\x35\x00\x6e\x00\x6f\x00\x36\x00\x06\x00\x2b\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5f\x00\x00\x00\x00\x00\x37\x00\x38\x00\x00\x00\x0f\x00\x00\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x51\x00\x10\x00\xd4\x00\x00\x00\x00\x00\x00\x00\x0f\x00\x39\x00\x00\x00\x0a\x00\x6c\x00\x00\x00\x3a\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0f\x00\xd5\x00\xac\x00\x00\x00\xad\x00\xae\x00\xaf\x00\x10\x00\xb0\x00\x00\x00\x00\x00\x00\x00\xef\x00\x00\x00\x00\x00\x00\x00\xb1\x00\xb2\x00\xb3\x00\xb4\x00\xd7\x00\x00\x00\xb5\x00\x00\x00\xb6\x00\xb7\x00\xb8\x00\xcf\x00\xb9\x00\x00\x00\x00\x00\x00\x00\xd0\x00\xba\x00\xbb\x00\x00\x00\xbc\x00\x06\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
+happyTable = HappyA# "\x00\x00\x50\x00\x3b\x00\x3b\x00\x3c\x00\x3b\x00\x3c\x00\x3b\x00\x3c\x00\x3b\x00\x3c\x00\x3b\x00\x3c\x00\x3b\x00\x3c\x00\x58\x00\x53\x00\x71\x00\x57\x00\x5a\x01\x57\x01\x95\x00\x58\x00\x96\x00\x47\x01\x74\x00\xf1\x00\x57\x01\x12\x00\x7a\x01\x13\x00\x02\x01\x7f\x00\x57\x01\x97\x00\x5a\x01\x14\x00\x4b\x00\xc8\x01\xc3\x01\x15\x00\x16\x00\x7f\x00\x98\x00\xc2\x01\xc9\x01\x17\x00\x95\x00\x5e\x00\x96\x00\x58\x00\x9e\x01\xea\x00\xf2\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x97\x00\x1e\x00\xf3\x00\xf4\x00\x1f\x00\x06\x00\xb6\x01\x20\x00\xec\x00\x98\x00\x62\x00\x72\x00\x06\x00\x06\x00\x06\x00\x21\x00\x54\x00\x18\x01\xab\x00\xa0\x01\xbd\x00\xff\xff\x3d\x00\xd4\x00\x3d\x00\x3e\x00\xbe\x00\x22\x00\xbf\x00\x06\x00\xc1\x00\x23\x00\x24\x00\x06\x00\x26\x00\x27\x00\x12\x00\x25\x00\x13\x00\x06\x00\x06\x00\x26\x00\x27\x00\x28\x00\x14\x00\x06\x00\x64\x01\xae\x01\x15\x00\x16\x00\x4b\x00\x06\x00\x26\x00\x53\x00\x17\x00\x5c\x01\x4b\x00\xa0\x00\x5c\x00\x06\x00\x26\x00\x27\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x2e\x00\x1e\x00\x0e\x01\x2f\x00\x1f\x00\x53\x00\xa9\x00\x20\x00\xa1\x01\x5e\x01\x62\x00\xfa\x00\x8e\x00\x8f\x00\xaa\x00\x21\x00\x44\x00\x07\x00\x08\x00\x09\x00\xab\x00\x12\x00\xab\x01\x13\x00\x0f\x01\xb0\x01\xac\x01\x22\x00\x76\x01\x14\x00\x22\x01\x23\x00\x24\x00\x15\x00\x16\x00\x10\x01\xf7\xff\x25\x00\x91\x01\x17\x00\x06\x00\x26\x00\x27\x00\x28\x00\x0f\x01\x54\x00\x89\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x2e\x00\x1e\x00\x10\x01\x2f\x00\x1f\x00\x11\x01\x77\x01\x20\x00\x85\x01\xa2\x00\x0a\x01\x40\x00\x54\x00\x55\x00\x54\x01\x21\x00\xad\x01\x31\x00\x0f\x00\x55\x01\x4b\x00\x12\x00\x0b\x01\x48\x00\x8f\x01\x41\x00\x42\x00\x22\x00\x83\x01\x14\x00\x2c\x00\x23\x00\x24\x00\x15\x00\x16\x00\x4b\x00\x86\x01\x25\x00\x76\x01\x9c\x00\x06\x00\x26\x00\x27\x00\x28\x00\x9d\x00\x4b\x00\xea\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x66\x00\x1e\x00\xf2\x00\x7c\x01\x1f\x00\x8d\x00\x8e\x00\x8f\x00\xea\x00\xec\x00\x67\x00\x68\x00\x84\x01\x69\x00\x6a\x00\x6b\x00\x77\x01\x12\x00\xeb\x00\x48\x00\x06\x00\x26\x00\x36\xff\x98\x01\xec\x00\x14\x00\x78\x01\x22\x00\x4b\x00\x15\x00\x16\x00\x23\x00\x24\x00\x5c\x01\x4c\x00\x4d\x00\x07\x01\x25\x00\x9b\x01\xc7\x01\x06\x00\x26\x00\x27\x00\x28\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x71\x00\xa2\x01\x88\x01\xc8\x01\x1f\x00\x5d\x01\x5e\x01\x90\x00\x49\x00\x8d\x00\x8e\x00\x8f\x00\x15\x00\x16\x00\x91\x00\x6c\x00\x9f\x01\x57\x01\xfa\x00\x8e\x00\x8f\x00\x4c\x00\x4d\x00\x23\x01\xd5\x00\x92\x00\x2f\x01\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x95\x00\xa7\x01\x96\x00\x67\x01\x1f\x00\x57\x01\xa5\x01\x7f\x00\x06\x00\x26\x00\x27\x00\x28\x00\x25\x01\x97\x00\x7e\x00\xd6\x00\x6e\x01\x12\x00\x6f\x01\x48\x00\x7f\x00\x4b\x00\x98\x00\x58\x01\x6c\x01\x14\x00\x71\x01\x4b\x00\x90\x00\x15\x00\x16\x00\xfa\x00\x8e\x00\x8f\x00\xd8\x00\x89\x01\x7e\x01\xa2\x00\x0a\x01\x2d\x01\x06\x00\x26\x00\x27\x00\x28\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x71\x00\x0b\x01\x48\x00\x0c\x01\x1f\x00\x4c\x00\x4d\x00\x63\x00\x49\x00\x8d\x00\x8e\x00\x8f\x00\x15\x00\x16\x00\x4c\x00\x4d\x00\x98\x00\xfa\x00\x8e\x00\x8f\x00\x4c\x00\x4d\x00\x4e\x00\x06\x00\x26\x00\x27\x00\x44\x01\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x2b\x00\xa2\x00\x90\x01\x3d\x01\x1f\x00\x95\x00\x7e\x00\x96\x00\x06\x00\x26\x00\x27\x00\x28\x00\x7f\x00\x2c\x00\x61\x01\x02\x01\x57\xff\x47\x00\x97\x00\x48\x00\x06\x00\x07\x00\x08\x00\x09\x00\x57\xff\x49\x00\x62\x00\x98\x00\x90\x00\x15\x00\x16\x00\x44\x00\x07\x00\x08\x00\x09\x00\x00\x01\xa2\x00\x0d\x01\xf5\x00\xf5\x00\x06\x00\x26\x00\x27\x00\x28\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x06\x00\x07\x00\x08\x00\x09\x00\x1f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x5a\x01\x8d\x00\x8e\x00\x8f\x00\xbf\x01\xf6\x00\xf6\x00\x0a\x00\x0b\x00\x78\x00\x4c\x00\x4d\x00\x63\x00\xc0\x01\x5b\x01\x88\x01\xf7\x00\x0f\x00\x6f\x00\x06\x00\x26\x00\x27\x00\xa1\x00\x8e\x00\x8f\x00\xfa\x00\x8e\x00\x8f\x00\x0f\x00\x5b\x00\x5c\x00\x06\x00\x26\x00\x27\x00\x28\x00\x5f\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x39\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x39\x01\x0f\x00\xfa\x00\x8e\x00\x8f\x00\xe1\x00\x0f\x00\x90\x00\x10\x00\x8d\x00\x8e\x00\x8f\x00\xda\x00\x10\x00\x91\x00\xd5\x00\xe4\x00\x3a\x01\x94\x01\x4c\x00\x4d\x00\x63\x00\x3a\x01\x3b\x01\x4b\x00\x92\x00\x93\x00\x34\x01\xa2\x00\xa3\x00\x1e\x01\xa2\x00\xa3\x00\x7f\x00\xa4\x00\xe2\x00\xa5\x00\xa4\x00\xd6\x00\xa5\x00\xfa\x00\x8e\x00\x8f\x00\x7a\x01\xa6\x00\xa7\x00\x57\x01\xa6\x00\x2c\x01\xd7\x00\x28\x00\x29\x00\xe1\x00\xa2\x00\xa3\x00\xed\x00\xdb\x00\xd8\x00\x80\x01\xa4\x00\x90\x00\xa5\x00\x66\x01\x74\x01\x67\x01\xa9\x01\xdd\x00\x56\x01\x21\x01\xa6\x00\x40\x01\x2f\x00\x30\x00\x24\x01\xfa\x00\x8e\x00\x8f\x00\x8d\x00\x8e\x00\x8f\x00\x80\x00\xcb\x00\xe2\x00\x8d\x00\x8e\x00\x8f\x00\x81\x01\xb1\x01\xee\x00\xab\x00\xe3\x00\xa2\x00\xa3\x00\x57\x01\xcc\x00\x7f\x01\xcd\x00\xa4\x00\xad\x00\xa5\x00\xae\x00\xaf\x00\xb0\x00\xb0\x01\xb1\x00\xc2\x00\xc3\x00\xa6\x00\xfb\x00\x68\x01\xdf\x00\x67\x01\xb2\x00\xb3\x00\xb4\x00\xb5\x00\xe0\x00\xc4\x00\xb6\x00\xc5\x00\xb7\x00\xb8\x00\xb9\x00\xce\x00\xba\x00\xa2\x00\xa3\x00\xc6\x00\x90\x00\xbb\x00\xbc\x00\xa4\x00\xbd\x00\x3e\x01\x90\x00\x00\x01\xad\x00\x4b\x00\xae\x00\xaf\x00\xb0\x00\x15\x01\xb1\x00\x06\x00\x07\x00\x08\x00\x09\x00\xc7\x00\x06\x00\x80\x01\xb2\x00\xb3\x00\xb4\x00\xb5\x00\x4b\x00\x4b\x00\xb6\x00\x7e\x00\xb7\x00\xb8\x00\xb9\x00\x32\x00\xba\x00\x7f\x00\x85\x00\x86\x00\x80\x00\xbb\x00\xbc\x00\xdb\x00\xbd\x00\x06\x00\x07\x00\x08\x00\x09\x00\x33\x00\x4e\x01\x81\x01\x82\x01\xdd\x00\x42\x00\x52\x00\x5e\x00\x07\x00\x08\x00\x09\x00\xdb\x00\xdb\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x1c\x01\x4f\x01\xdc\x00\xcb\x01\xdd\x00\xdd\x00\x0f\x00\xed\x00\x5e\x00\x07\x00\x08\x00\x09\x00\x3c\xff\x10\x00\x59\x00\x3c\xff\x1d\x01\x44\x00\x07\x00\x08\x00\x09\x00\xcc\x01\xc6\x01\x6f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x58\x00\x06\x00\x07\x00\x08\x00\x09\x00\xc5\x01\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5f\x00\xee\x00\x10\x00\x59\x00\x06\x00\x5a\x00\x0f\x00\xbb\x01\xef\x00\xbc\x01\xbe\x01\x54\x00\x95\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x45\x00\x0f\x00\xbd\x01\xbf\x01\xb5\x01\xb6\x01\x54\x00\x60\x00\x10\x00\x06\x00\x0f\x00\xa7\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9e\x00\x3c\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\xd0\x00\x06\x00\x07\x00\x08\x00\x09\x00\xd1\x00\x10\x00\xb3\x01\xaa\x01\x06\x00\x06\x00\x47\x01\x97\x01\x06\x00\x07\x00\x08\x00\x09\x00\x98\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9e\x00\xf9\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x9a\x01\x9b\x01\x9d\x01\xa5\x01\xa4\x01\x06\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9e\x00\x9f\x00\x0a\x00\x0b\x00\x79\x00\x66\x01\x0f\x00\x44\x00\x07\x00\x08\x00\x09\x00\x6a\x01\x0f\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9e\x00\xaa\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xb3\x01\x06\x00\x10\x00\x6b\x01\x70\x01\x6c\x01\x0f\x00\x71\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xac\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x6c\x00\x10\x00\x7c\x01\xb7\x01\x06\x00\x06\x00\x8b\x01\x8c\x01\x06\x00\x0f\x00\xb8\x01\xc1\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x93\x01\x06\x00\x07\x00\x08\x00\x09\x00\x8d\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x29\x01\x93\x01\x10\x00\x27\x01\x28\x01\x2a\x01\xd5\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9d\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x72\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x2b\x01\x10\x00\x31\x01\x32\x01\x36\x01\xd6\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x73\x01\xd9\x00\x0a\x00\x0b\x00\x7a\x00\x33\x01\x0f\x00\x35\x01\x37\x01\xd8\x00\x38\x01\x39\x01\x0f\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x06\x00\x07\x00\x08\x00\x09\x00\xb7\x01\x42\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x75\x01\xb8\x01\xb9\x01\x44\x01\x43\x01\x46\x01\x0f\x00\x48\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x7d\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x49\x01\x4a\x01\x10\x00\x4b\x01\x06\x00\x4c\x01\x4d\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x8d\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x8e\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x4e\x01\x10\x00\x51\x01\x52\x01\x53\x01\x56\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x65\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x2b\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x2e\x01\x0f\x00\x61\x01\x63\x01\xcb\x00\xd2\x00\x0f\x00\xd3\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x3f\x01\xd4\x00\xf9\x00\xfd\x00\xfe\x00\xff\x00\x0f\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x05\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x00\x01\x85\x00\x10\x00\x03\x01\x04\x01\x05\x01\x0a\x01\x06\x00\x14\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x06\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x08\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x10\x00\x13\x01\x17\x01\xd5\x00\x15\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x19\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x1b\x01\x0f\x00\x18\x01\x1b\x01\x06\x00\x27\x00\x0f\x00\xd6\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\xe0\x00\x21\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x1f\x01\x06\x00\xd8\x00\x06\x00\x6e\x00\x75\x00\x0f\x00\x7d\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x75\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x82\x00\x10\x00\x83\x00\x84\x00\x87\x00\x89\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x76\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x77\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x88\x00\x10\x00\x8b\x00\xd5\x00\xd5\x00\x8d\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x8c\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x7b\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9d\x00\x0f\x00\xd5\x00\xd5\x00\xd6\x00\xd6\x00\x0f\x00\x4b\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x10\x00\x9a\x00\xe5\x00\xe6\x00\x9b\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5f\x00\xd8\x00\xd8\x00\xd6\x00\xd6\x00\xd5\x00\x0f\x00\x7f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x51\x00\x10\x00\xe7\x00\xe9\x00\xc1\x00\xdb\x00\x0f\x00\x06\x00\xc9\x00\xca\x00\xd8\x00\xd8\x00\xe8\x00\x10\x00\x3b\x00\xdd\x00\xd6\x00\xff\xff\x06\x00\x44\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x4a\x00\xff\xff\xf0\x00\x4b\x00\x06\x00\x0f\x00\x51\x00\x65\x00\xff\xff\x6e\x00\xd8\x00\xad\x00\x10\x00\xae\x00\xaf\x00\xb0\x00\x6f\x00\xb1\x00\x2b\x00\x00\x00\x06\x00\x00\x00\x00\x00\x00\x00\x00\x00\xb2\x00\xb3\x00\xb4\x00\xb5\x00\x00\x00\x00\x00\xb6\x00\x00\x00\xb7\x00\xb8\x00\xb9\x00\x35\x00\xba\x00\x00\x00\x36\x00\x00\x00\x00\x00\xbb\x00\xbc\x00\x00\x00\xbd\x00\x00\x00\x00\x00\x00\x00\x37\x00\x38\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x39\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
 
-happyReduceArr = array (4, 234) [
+happyReduceArr = array (4, 235) [
 	(4 , happyReduce_4),
 	(5 , happyReduce_5),
 	(6 , happyReduce_6),
@@ -741,7 +741,8 @@ happyReduceArr = array (4, 234) [
 	(231 , happyReduce_231),
 	(232 , happyReduce_232),
 	(233 , happyReduce_233),
-	(234 , happyReduce_234)
+	(234 , happyReduce_234),
+	(235 , happyReduce_235)
 	]
 
 happy_n_terms = 81 :: Int
@@ -1958,8 +1959,21 @@ happyReduction_140 (happy_x_5 `HappyStk`
 		 (ETTable happy_var_2 happy_var_4
 	) `HappyStk` happyRest}}
 
-happyReduce_141 = happyReduce 6# 47# happyReduction_141
-happyReduction_141 (happy_x_6 `HappyStk`
+happyReduce_141 = happyReduce 5# 47# happyReduction_141
+happyReduction_141 (happy_x_5 `HappyStk`
+	happy_x_4 `HappyStk`
+	happy_x_3 `HappyStk`
+	happy_x_2 `HappyStk`
+	happy_x_1 `HappyStk`
+	happyRest)
+	 = case happyOut52 happy_x_2 of { happy_var_2 -> 
+	case happyOut57 happy_x_4 of { happy_var_4 -> 
+	happyIn54
+		 (EVTable happy_var_2 happy_var_4
+	) `HappyStk` happyRest}}
+
+happyReduce_142 = happyReduce 6# 47# happyReduction_142
+happyReduction_142 (happy_x_6 `HappyStk`
 	happy_x_5 `HappyStk`
 	happy_x_4 `HappyStk`
 	happy_x_3 `HappyStk`
@@ -1972,8 +1986,8 @@ happyReduction_141 (happy_x_6 `HappyStk`
 		 (ECase happy_var_2 happy_var_5
 	) `HappyStk` happyRest}}
 
-happyReduce_142 = happyReduce 4# 47# happyReduction_142
-happyReduction_142 (happy_x_4 `HappyStk`
+happyReduce_143 = happyReduce 4# 47# happyReduction_143
+happyReduction_143 (happy_x_4 `HappyStk`
 	happy_x_3 `HappyStk`
 	happy_x_2 `HappyStk`
 	happy_x_1 `HappyStk`
@@ -1983,8 +1997,8 @@ happyReduction_142 (happy_x_4 `HappyStk`
 		 (EVariants happy_var_3
 	) `HappyStk` happyRest}
 
-happyReduce_143 = happyReduce 6# 47# happyReduction_143
-happyReduction_143 (happy_x_6 `HappyStk`
+happyReduce_144 = happyReduce 6# 47# happyReduction_144
+happyReduction_144 (happy_x_6 `HappyStk`
 	happy_x_5 `HappyStk`
 	happy_x_4 `HappyStk`
 	happy_x_3 `HappyStk`
@@ -1997,8 +2011,8 @@ happyReduction_143 (happy_x_6 `HappyStk`
 		 (EPre happy_var_3 happy_var_5
 	) `HappyStk` happyRest}}
 
-happyReduce_144 = happyReduce 4# 47# happyReduction_144
-happyReduction_144 (happy_x_4 `HappyStk`
+happyReduce_145 = happyReduce 4# 47# happyReduction_145
+happyReduction_145 (happy_x_4 `HappyStk`
 	happy_x_3 `HappyStk`
 	happy_x_2 `HappyStk`
 	happy_x_1 `HappyStk`
@@ -2008,8 +2022,8 @@ happyReduction_144 (happy_x_4 `HappyStk`
 		 (EStrs happy_var_3
 	) `HappyStk` happyRest}
 
-happyReduce_145 = happySpecReduce_3 47# happyReduction_145
-happyReduction_145 happy_x_3
+happyReduce_146 = happySpecReduce_3 47# happyReduction_146
+happyReduction_146 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut7 happy_x_1 of { happy_var_1 -> 
@@ -2018,31 +2032,21 @@ happyReduction_145 happy_x_3
 		 (EConAt happy_var_1 happy_var_3
 	)}}
 
-happyReduce_146 = happySpecReduce_1 47# happyReduction_146
-happyReduction_146 happy_x_1
+happyReduce_147 = happySpecReduce_1 47# happyReduction_147
+happyReduction_147 happy_x_1
 	 =  case happyOut53 happy_x_1 of { happy_var_1 -> 
 	happyIn54
 		 (happy_var_1
 	)}
 
-happyReduce_147 = happySpecReduce_2 47# happyReduction_147
-happyReduction_147 happy_x_2
+happyReduce_148 = happySpecReduce_2 47# happyReduction_148
+happyReduction_148 happy_x_2
 	happy_x_1
 	 =  case happyOut7 happy_x_2 of { happy_var_2 -> 
 	happyIn54
 		 (ELin happy_var_2
 	)}
 
-happyReduce_148 = happySpecReduce_3 48# happyReduction_148
-happyReduction_148 happy_x_3
-	happy_x_2
-	happy_x_1
-	 =  case happyOut55 happy_x_1 of { happy_var_1 -> 
-	case happyOut54 happy_x_3 of { happy_var_3 -> 
-	happyIn55
-		 (ESelect happy_var_1 happy_var_3
-	)}}
-
 happyReduce_149 = happySpecReduce_3 48# happyReduction_149
 happyReduction_149 happy_x_3
 	happy_x_2
@@ -2050,11 +2054,21 @@ happyReduction_149 happy_x_3
 	 =  case happyOut55 happy_x_1 of { happy_var_1 -> 
 	case happyOut54 happy_x_3 of { happy_var_3 -> 
 	happyIn55
-		 (ETupTyp happy_var_1 happy_var_3
+		 (ESelect happy_var_1 happy_var_3
 	)}}
 
 happyReduce_150 = happySpecReduce_3 48# happyReduction_150
 happyReduction_150 happy_x_3
+	happy_x_2
+	happy_x_1
+	 =  case happyOut55 happy_x_1 of { happy_var_1 -> 
+	case happyOut54 happy_x_3 of { happy_var_3 -> 
+	happyIn55
+		 (ETupTyp happy_var_1 happy_var_3
+	)}}
+
+happyReduce_151 = happySpecReduce_3 48# happyReduction_151
+happyReduction_151 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut55 happy_x_1 of { happy_var_1 -> 
@@ -2063,15 +2077,15 @@ happyReduction_150 happy_x_3
 		 (EExtend happy_var_1 happy_var_3
 	)}}
 
-happyReduce_151 = happySpecReduce_1 48# happyReduction_151
-happyReduction_151 happy_x_1
+happyReduce_152 = happySpecReduce_1 48# happyReduction_152
+happyReduction_152 happy_x_1
 	 =  case happyOut54 happy_x_1 of { happy_var_1 -> 
 	happyIn55
 		 (happy_var_1
 	)}
 
-happyReduce_152 = happyReduce 4# 49# happyReduction_152
-happyReduction_152 (happy_x_4 `HappyStk`
+happyReduce_153 = happyReduce 4# 49# happyReduction_153
+happyReduction_153 (happy_x_4 `HappyStk`
 	happy_x_3 `HappyStk`
 	happy_x_2 `HappyStk`
 	happy_x_1 `HappyStk`
@@ -2082,8 +2096,8 @@ happyReduction_152 (happy_x_4 `HappyStk`
 		 (EAbstr happy_var_2 happy_var_4
 	) `HappyStk` happyRest}}
 
-happyReduce_153 = happyReduce 5# 49# happyReduction_153
-happyReduction_153 (happy_x_5 `HappyStk`
+happyReduce_154 = happyReduce 5# 49# happyReduction_154
+happyReduction_154 (happy_x_5 `HappyStk`
 	happy_x_4 `HappyStk`
 	happy_x_3 `HappyStk`
 	happy_x_2 `HappyStk`
@@ -2095,8 +2109,8 @@ happyReduction_153 (happy_x_5 `HappyStk`
 		 (ECTable happy_var_3 happy_var_5
 	) `HappyStk` happyRest}}
 
-happyReduce_154 = happySpecReduce_3 49# happyReduction_154
-happyReduction_154 happy_x_3
+happyReduce_155 = happySpecReduce_3 49# happyReduction_155
+happyReduction_155 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut69 happy_x_1 of { happy_var_1 -> 
@@ -2105,16 +2119,6 @@ happyReduction_154 happy_x_3
 		 (EProd happy_var_1 happy_var_3
 	)}}
 
-happyReduce_155 = happySpecReduce_3 49# happyReduction_155
-happyReduction_155 happy_x_3
-	happy_x_2
-	happy_x_1
-	 =  case happyOut55 happy_x_1 of { happy_var_1 -> 
-	case happyOut56 happy_x_3 of { happy_var_3 -> 
-	happyIn56
-		 (ETType happy_var_1 happy_var_3
-	)}}
-
 happyReduce_156 = happySpecReduce_3 49# happyReduction_156
 happyReduction_156 happy_x_3
 	happy_x_2
@@ -2122,11 +2126,21 @@ happyReduction_156 happy_x_3
 	 =  case happyOut55 happy_x_1 of { happy_var_1 -> 
 	case happyOut56 happy_x_3 of { happy_var_3 -> 
 	happyIn56
-		 (EConcat happy_var_1 happy_var_3
+		 (ETType happy_var_1 happy_var_3
 	)}}
 
 happyReduce_157 = happySpecReduce_3 49# happyReduction_157
 happyReduction_157 happy_x_3
+	happy_x_2
+	happy_x_1
+	 =  case happyOut55 happy_x_1 of { happy_var_1 -> 
+	case happyOut56 happy_x_3 of { happy_var_3 -> 
+	happyIn56
+		 (EConcat happy_var_1 happy_var_3
+	)}}
+
+happyReduce_158 = happySpecReduce_3 49# happyReduction_158
+happyReduction_158 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut55 happy_x_1 of { happy_var_1 -> 
@@ -2135,8 +2149,8 @@ happyReduction_157 happy_x_3
 		 (EGlue happy_var_1 happy_var_3
 	)}}
 
-happyReduce_158 = happyReduce 6# 49# happyReduction_158
-happyReduction_158 (happy_x_6 `HappyStk`
+happyReduce_159 = happyReduce 6# 49# happyReduction_159
+happyReduction_159 (happy_x_6 `HappyStk`
 	happy_x_5 `HappyStk`
 	happy_x_4 `HappyStk`
 	happy_x_3 `HappyStk`
@@ -2149,8 +2163,8 @@ happyReduction_158 (happy_x_6 `HappyStk`
 		 (ELet happy_var_3 happy_var_6
 	) `HappyStk` happyRest}}
 
-happyReduce_159 = happyReduce 4# 49# happyReduction_159
-happyReduction_159 (happy_x_4 `HappyStk`
+happyReduce_160 = happyReduce 4# 49# happyReduction_160
+happyReduction_160 (happy_x_4 `HappyStk`
 	happy_x_3 `HappyStk`
 	happy_x_2 `HappyStk`
 	happy_x_1 `HappyStk`
@@ -2161,8 +2175,8 @@ happyReduction_159 (happy_x_4 `HappyStk`
 		 (ELetb happy_var_2 happy_var_4
 	) `HappyStk` happyRest}}
 
-happyReduce_160 = happyReduce 5# 49# happyReduction_160
-happyReduction_160 (happy_x_5 `HappyStk`
+happyReduce_161 = happyReduce 5# 49# happyReduction_161
+happyReduction_161 (happy_x_5 `HappyStk`
 	happy_x_4 `HappyStk`
 	happy_x_3 `HappyStk`
 	happy_x_2 `HappyStk`
@@ -2174,8 +2188,8 @@ happyReduction_160 (happy_x_5 `HappyStk`
 		 (EWhere happy_var_1 happy_var_4
 	) `HappyStk` happyRest}}
 
-happyReduce_161 = happyReduce 4# 49# happyReduction_161
-happyReduction_161 (happy_x_4 `HappyStk`
+happyReduce_162 = happyReduce 4# 49# happyReduction_162
+happyReduction_162 (happy_x_4 `HappyStk`
 	happy_x_3 `HappyStk`
 	happy_x_2 `HappyStk`
 	happy_x_1 `HappyStk`
@@ -2185,27 +2199,27 @@ happyReduction_161 (happy_x_4 `HappyStk`
 		 (EEqs happy_var_3
 	) `HappyStk` happyRest}
 
-happyReduce_162 = happySpecReduce_1 49# happyReduction_162
-happyReduction_162 happy_x_1
+happyReduce_163 = happySpecReduce_1 49# happyReduction_163
+happyReduction_163 happy_x_1
 	 =  case happyOut55 happy_x_1 of { happy_var_1 -> 
 	happyIn56
 		 (happy_var_1
 	)}
 
-happyReduce_163 = happySpecReduce_0 50# happyReduction_163
-happyReduction_163  =  happyIn57
+happyReduce_164 = happySpecReduce_0 50# happyReduction_164
+happyReduction_164  =  happyIn57
 		 ([]
 	)
 
-happyReduce_164 = happySpecReduce_1 50# happyReduction_164
-happyReduction_164 happy_x_1
+happyReduce_165 = happySpecReduce_1 50# happyReduction_165
+happyReduction_165 happy_x_1
 	 =  case happyOut56 happy_x_1 of { happy_var_1 -> 
 	happyIn57
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_165 = happySpecReduce_3 50# happyReduction_165
-happyReduction_165 happy_x_3
+happyReduce_166 = happySpecReduce_3 50# happyReduction_166
+happyReduction_166 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut56 happy_x_1 of { happy_var_1 -> 
@@ -2214,21 +2228,21 @@ happyReduction_165 happy_x_3
 		 ((:) happy_var_1 happy_var_3
 	)}}
 
-happyReduce_166 = happySpecReduce_1 51# happyReduction_166
-happyReduction_166 happy_x_1
+happyReduce_167 = happySpecReduce_1 51# happyReduction_167
+happyReduction_167 happy_x_1
 	 =  happyIn58
 		 (PW
 	)
 
-happyReduce_167 = happySpecReduce_1 51# happyReduction_167
-happyReduction_167 happy_x_1
+happyReduce_168 = happySpecReduce_1 51# happyReduction_168
+happyReduction_168 happy_x_1
 	 =  case happyOut7 happy_x_1 of { happy_var_1 -> 
 	happyIn58
 		 (PV happy_var_1
 	)}
 
-happyReduce_168 = happySpecReduce_3 51# happyReduction_168
-happyReduction_168 happy_x_3
+happyReduce_169 = happySpecReduce_3 51# happyReduction_169
+happyReduction_169 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut7 happy_x_2 of { happy_var_2 -> 
@@ -2236,8 +2250,8 @@ happyReduction_168 happy_x_3
 		 (PCon happy_var_2
 	)}
 
-happyReduce_169 = happySpecReduce_3 51# happyReduction_169
-happyReduction_169 happy_x_3
+happyReduce_170 = happySpecReduce_3 51# happyReduction_170
+happyReduction_170 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut7 happy_x_1 of { happy_var_1 -> 
@@ -2246,22 +2260,22 @@ happyReduction_169 happy_x_3
 		 (PQ happy_var_1 happy_var_3
 	)}}
 
-happyReduce_170 = happySpecReduce_1 51# happyReduction_170
-happyReduction_170 happy_x_1
+happyReduce_171 = happySpecReduce_1 51# happyReduction_171
+happyReduction_171 happy_x_1
 	 =  case happyOut9 happy_x_1 of { happy_var_1 -> 
 	happyIn58
 		 (PInt happy_var_1
 	)}
 
-happyReduce_171 = happySpecReduce_1 51# happyReduction_171
-happyReduction_171 happy_x_1
+happyReduce_172 = happySpecReduce_1 51# happyReduction_172
+happyReduction_172 happy_x_1
 	 =  case happyOut8 happy_x_1 of { happy_var_1 -> 
 	happyIn58
 		 (PStr happy_var_1
 	)}
 
-happyReduce_172 = happySpecReduce_3 51# happyReduction_172
-happyReduction_172 happy_x_3
+happyReduce_173 = happySpecReduce_3 51# happyReduction_173
+happyReduction_173 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut63 happy_x_2 of { happy_var_2 -> 
@@ -2269,8 +2283,8 @@ happyReduction_172 happy_x_3
 		 (PR happy_var_2
 	)}
 
-happyReduce_173 = happySpecReduce_3 51# happyReduction_173
-happyReduction_173 happy_x_3
+happyReduce_174 = happySpecReduce_3 51# happyReduction_174
+happyReduction_174 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut73 happy_x_2 of { happy_var_2 -> 
@@ -2278,8 +2292,8 @@ happyReduction_173 happy_x_3
 		 (PTup happy_var_2
 	)}
 
-happyReduce_174 = happySpecReduce_3 51# happyReduction_174
-happyReduction_174 happy_x_3
+happyReduce_175 = happySpecReduce_3 51# happyReduction_175
+happyReduction_175 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut59 happy_x_2 of { happy_var_2 -> 
@@ -2287,8 +2301,8 @@ happyReduction_174 happy_x_3
 		 (happy_var_2
 	)}
 
-happyReduce_175 = happySpecReduce_2 52# happyReduction_175
-happyReduction_175 happy_x_2
+happyReduce_176 = happySpecReduce_2 52# happyReduction_176
+happyReduction_176 happy_x_2
 	happy_x_1
 	 =  case happyOut7 happy_x_1 of { happy_var_1 -> 
 	case happyOut65 happy_x_2 of { happy_var_2 -> 
@@ -2296,8 +2310,8 @@ happyReduction_175 happy_x_2
 		 (PC happy_var_1 happy_var_2
 	)}}
 
-happyReduce_176 = happyReduce 4# 52# happyReduction_176
-happyReduction_176 (happy_x_4 `HappyStk`
+happyReduce_177 = happyReduce 4# 52# happyReduction_177
+happyReduction_177 (happy_x_4 `HappyStk`
 	happy_x_3 `HappyStk`
 	happy_x_2 `HappyStk`
 	happy_x_1 `HappyStk`
@@ -2309,15 +2323,15 @@ happyReduction_176 (happy_x_4 `HappyStk`
 		 (PQC happy_var_1 happy_var_3 happy_var_4
 	) `HappyStk` happyRest}}}
 
-happyReduce_177 = happySpecReduce_1 52# happyReduction_177
-happyReduction_177 happy_x_1
+happyReduce_178 = happySpecReduce_1 52# happyReduction_178
+happyReduction_178 happy_x_1
 	 =  case happyOut58 happy_x_1 of { happy_var_1 -> 
 	happyIn59
 		 (happy_var_1
 	)}
 
-happyReduce_178 = happySpecReduce_3 53# happyReduction_178
-happyReduction_178 happy_x_3
+happyReduce_179 = happySpecReduce_3 53# happyReduction_179
+happyReduction_179 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut49 happy_x_1 of { happy_var_1 -> 
@@ -2326,65 +2340,65 @@ happyReduction_178 happy_x_3
 		 (PA happy_var_1 happy_var_3
 	)}}
 
-happyReduce_179 = happySpecReduce_1 54# happyReduction_179
-happyReduction_179 happy_x_1
+happyReduce_180 = happySpecReduce_1 54# happyReduction_180
+happyReduction_180 happy_x_1
 	 =  case happyOut7 happy_x_1 of { happy_var_1 -> 
 	happyIn61
 		 (LIdent happy_var_1
 	)}
 
-happyReduce_180 = happySpecReduce_2 54# happyReduction_180
-happyReduction_180 happy_x_2
+happyReduce_181 = happySpecReduce_2 54# happyReduction_181
+happyReduction_181 happy_x_2
 	happy_x_1
 	 =  case happyOut9 happy_x_2 of { happy_var_2 -> 
 	happyIn61
 		 (LVar happy_var_2
 	)}
 
-happyReduce_181 = happySpecReduce_1 55# happyReduction_181
-happyReduction_181 happy_x_1
-	 =  happyIn62
-		 (Sort_Type
-	)
-
 happyReduce_182 = happySpecReduce_1 55# happyReduction_182
 happyReduction_182 happy_x_1
 	 =  happyIn62
-		 (Sort_PType
+		 (Sort_Type
 	)
 
 happyReduce_183 = happySpecReduce_1 55# happyReduction_183
 happyReduction_183 happy_x_1
 	 =  happyIn62
-		 (Sort_Tok
+		 (Sort_PType
 	)
 
 happyReduce_184 = happySpecReduce_1 55# happyReduction_184
 happyReduction_184 happy_x_1
 	 =  happyIn62
-		 (Sort_Str
+		 (Sort_Tok
 	)
 
 happyReduce_185 = happySpecReduce_1 55# happyReduction_185
 happyReduction_185 happy_x_1
+	 =  happyIn62
+		 (Sort_Str
+	)
+
+happyReduce_186 = happySpecReduce_1 55# happyReduction_186
+happyReduction_186 happy_x_1
 	 =  happyIn62
 		 (Sort_Strs
 	)
 
-happyReduce_186 = happySpecReduce_0 56# happyReduction_186
-happyReduction_186  =  happyIn63
+happyReduce_187 = happySpecReduce_0 56# happyReduction_187
+happyReduction_187  =  happyIn63
 		 ([]
 	)
 
-happyReduce_187 = happySpecReduce_1 56# happyReduction_187
-happyReduction_187 happy_x_1
+happyReduce_188 = happySpecReduce_1 56# happyReduction_188
+happyReduction_188 happy_x_1
 	 =  case happyOut60 happy_x_1 of { happy_var_1 -> 
 	happyIn63
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_188 = happySpecReduce_3 56# happyReduction_188
-happyReduction_188 happy_x_3
+happyReduce_189 = happySpecReduce_3 56# happyReduction_189
+happyReduction_189 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut60 happy_x_1 of { happy_var_1 -> 
@@ -2393,22 +2407,22 @@ happyReduction_188 happy_x_3
 		 ((:) happy_var_1 happy_var_3
 	)}}
 
-happyReduce_189 = happySpecReduce_1 57# happyReduction_189
-happyReduction_189 happy_x_1
+happyReduce_190 = happySpecReduce_1 57# happyReduction_190
+happyReduction_190 happy_x_1
 	 =  case happyOut59 happy_x_1 of { happy_var_1 -> 
 	happyIn64
 		 (AltP happy_var_1
 	)}
 
-happyReduce_190 = happySpecReduce_1 58# happyReduction_190
-happyReduction_190 happy_x_1
+happyReduce_191 = happySpecReduce_1 58# happyReduction_191
+happyReduction_191 happy_x_1
 	 =  case happyOut58 happy_x_1 of { happy_var_1 -> 
 	happyIn65
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_191 = happySpecReduce_2 58# happyReduction_191
-happyReduction_191 happy_x_2
+happyReduce_192 = happySpecReduce_2 58# happyReduction_192
+happyReduction_192 happy_x_2
 	happy_x_1
 	 =  case happyOut58 happy_x_1 of { happy_var_1 -> 
 	case happyOut65 happy_x_2 of { happy_var_2 -> 
@@ -2416,15 +2430,15 @@ happyReduction_191 happy_x_2
 		 ((:) happy_var_1 happy_var_2
 	)}}
 
-happyReduce_192 = happySpecReduce_1 59# happyReduction_192
-happyReduction_192 happy_x_1
+happyReduce_193 = happySpecReduce_1 59# happyReduction_193
+happyReduction_193 happy_x_1
 	 =  case happyOut64 happy_x_1 of { happy_var_1 -> 
 	happyIn66
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_193 = happySpecReduce_3 59# happyReduction_193
-happyReduction_193 happy_x_3
+happyReduce_194 = happySpecReduce_3 59# happyReduction_194
+happyReduction_194 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut64 happy_x_1 of { happy_var_1 -> 
@@ -2433,33 +2447,33 @@ happyReduction_193 happy_x_3
 		 ((:) happy_var_1 happy_var_3
 	)}}
 
-happyReduce_194 = happySpecReduce_1 60# happyReduction_194
-happyReduction_194 happy_x_1
+happyReduce_195 = happySpecReduce_1 60# happyReduction_195
+happyReduction_195 happy_x_1
 	 =  case happyOut7 happy_x_1 of { happy_var_1 -> 
 	happyIn67
 		 (BIdent happy_var_1
 	)}
 
-happyReduce_195 = happySpecReduce_1 60# happyReduction_195
-happyReduction_195 happy_x_1
+happyReduce_196 = happySpecReduce_1 60# happyReduction_196
+happyReduction_196 happy_x_1
 	 =  happyIn67
 		 (BWild
 	)
 
-happyReduce_196 = happySpecReduce_0 61# happyReduction_196
-happyReduction_196  =  happyIn68
+happyReduce_197 = happySpecReduce_0 61# happyReduction_197
+happyReduction_197  =  happyIn68
 		 ([]
 	)
 
-happyReduce_197 = happySpecReduce_1 61# happyReduction_197
-happyReduction_197 happy_x_1
+happyReduce_198 = happySpecReduce_1 61# happyReduction_198
+happyReduction_198 happy_x_1
 	 =  case happyOut67 happy_x_1 of { happy_var_1 -> 
 	happyIn68
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_198 = happySpecReduce_3 61# happyReduction_198
-happyReduction_198 happy_x_3
+happyReduce_199 = happySpecReduce_3 61# happyReduction_199
+happyReduction_199 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut67 happy_x_1 of { happy_var_1 -> 
@@ -2468,8 +2482,8 @@ happyReduction_198 happy_x_3
 		 ((:) happy_var_1 happy_var_3
 	)}}
 
-happyReduce_199 = happyReduce 5# 62# happyReduction_199
-happyReduction_199 (happy_x_5 `HappyStk`
+happyReduce_200 = happyReduce 5# 62# happyReduction_200
+happyReduction_200 (happy_x_5 `HappyStk`
 	happy_x_4 `HappyStk`
 	happy_x_3 `HappyStk`
 	happy_x_2 `HappyStk`
@@ -2481,41 +2495,41 @@ happyReduction_199 (happy_x_5 `HappyStk`
 		 (DDec happy_var_2 happy_var_4
 	) `HappyStk` happyRest}}
 
-happyReduce_200 = happySpecReduce_1 62# happyReduction_200
-happyReduction_200 happy_x_1
+happyReduce_201 = happySpecReduce_1 62# happyReduction_201
+happyReduction_201 happy_x_1
 	 =  case happyOut54 happy_x_1 of { happy_var_1 -> 
 	happyIn69
 		 (DExp happy_var_1
 	)}
 
-happyReduce_201 = happySpecReduce_1 63# happyReduction_201
-happyReduction_201 happy_x_1
+happyReduce_202 = happySpecReduce_1 63# happyReduction_202
+happyReduction_202 happy_x_1
 	 =  case happyOut56 happy_x_1 of { happy_var_1 -> 
 	happyIn70
 		 (TComp happy_var_1
 	)}
 
-happyReduce_202 = happySpecReduce_1 64# happyReduction_202
-happyReduction_202 happy_x_1
+happyReduce_203 = happySpecReduce_1 64# happyReduction_203
+happyReduction_203 happy_x_1
 	 =  case happyOut59 happy_x_1 of { happy_var_1 -> 
 	happyIn71
 		 (PTComp happy_var_1
 	)}
 
-happyReduce_203 = happySpecReduce_0 65# happyReduction_203
-happyReduction_203  =  happyIn72
+happyReduce_204 = happySpecReduce_0 65# happyReduction_204
+happyReduction_204  =  happyIn72
 		 ([]
 	)
 
-happyReduce_204 = happySpecReduce_1 65# happyReduction_204
-happyReduction_204 happy_x_1
+happyReduce_205 = happySpecReduce_1 65# happyReduction_205
+happyReduction_205 happy_x_1
 	 =  case happyOut70 happy_x_1 of { happy_var_1 -> 
 	happyIn72
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_205 = happySpecReduce_3 65# happyReduction_205
-happyReduction_205 happy_x_3
+happyReduce_206 = happySpecReduce_3 65# happyReduction_206
+happyReduction_206 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut70 happy_x_1 of { happy_var_1 -> 
@@ -2524,20 +2538,20 @@ happyReduction_205 happy_x_3
 		 ((:) happy_var_1 happy_var_3
 	)}}
 
-happyReduce_206 = happySpecReduce_0 66# happyReduction_206
-happyReduction_206  =  happyIn73
+happyReduce_207 = happySpecReduce_0 66# happyReduction_207
+happyReduction_207  =  happyIn73
 		 ([]
 	)
 
-happyReduce_207 = happySpecReduce_1 66# happyReduction_207
-happyReduction_207 happy_x_1
+happyReduce_208 = happySpecReduce_1 66# happyReduction_208
+happyReduction_208 happy_x_1
 	 =  case happyOut71 happy_x_1 of { happy_var_1 -> 
 	happyIn73
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_208 = happySpecReduce_3 66# happyReduction_208
-happyReduction_208 happy_x_3
+happyReduce_209 = happySpecReduce_3 66# happyReduction_209
+happyReduction_209 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut71 happy_x_1 of { happy_var_1 -> 
@@ -2546,8 +2560,8 @@ happyReduction_208 happy_x_3
 		 ((:) happy_var_1 happy_var_3
 	)}}
 
-happyReduce_209 = happySpecReduce_3 67# happyReduction_209
-happyReduction_209 happy_x_3
+happyReduce_210 = happySpecReduce_3 67# happyReduction_210
+happyReduction_210 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut66 happy_x_1 of { happy_var_1 -> 
@@ -2556,15 +2570,15 @@ happyReduction_209 happy_x_3
 		 (Case happy_var_1 happy_var_3
 	)}}
 
-happyReduce_210 = happySpecReduce_1 68# happyReduction_210
-happyReduction_210 happy_x_1
+happyReduce_211 = happySpecReduce_1 68# happyReduction_211
+happyReduction_211 happy_x_1
 	 =  case happyOut74 happy_x_1 of { happy_var_1 -> 
 	happyIn75
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_211 = happySpecReduce_3 68# happyReduction_211
-happyReduction_211 happy_x_3
+happyReduce_212 = happySpecReduce_3 68# happyReduction_212
+happyReduction_212 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut74 happy_x_1 of { happy_var_1 -> 
@@ -2573,8 +2587,8 @@ happyReduction_211 happy_x_3
 		 ((:) happy_var_1 happy_var_3
 	)}}
 
-happyReduce_212 = happySpecReduce_3 69# happyReduction_212
-happyReduction_212 happy_x_3
+happyReduce_213 = happySpecReduce_3 69# happyReduction_213
+happyReduction_213 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut65 happy_x_1 of { happy_var_1 -> 
@@ -2583,20 +2597,20 @@ happyReduction_212 happy_x_3
 		 (Equ happy_var_1 happy_var_3
 	)}}
 
-happyReduce_213 = happySpecReduce_0 70# happyReduction_213
-happyReduction_213  =  happyIn77
+happyReduce_214 = happySpecReduce_0 70# happyReduction_214
+happyReduction_214  =  happyIn77
 		 ([]
 	)
 
-happyReduce_214 = happySpecReduce_1 70# happyReduction_214
-happyReduction_214 happy_x_1
+happyReduce_215 = happySpecReduce_1 70# happyReduction_215
+happyReduction_215 happy_x_1
 	 =  case happyOut76 happy_x_1 of { happy_var_1 -> 
 	happyIn77
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_215 = happySpecReduce_3 70# happyReduction_215
-happyReduction_215 happy_x_3
+happyReduce_216 = happySpecReduce_3 70# happyReduction_216
+happyReduction_216 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut76 happy_x_1 of { happy_var_1 -> 
@@ -2605,8 +2619,8 @@ happyReduction_215 happy_x_3
 		 ((:) happy_var_1 happy_var_3
 	)}}
 
-happyReduce_216 = happySpecReduce_3 71# happyReduction_216
-happyReduction_216 happy_x_3
+happyReduce_217 = happySpecReduce_3 71# happyReduction_217
+happyReduction_217 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut56 happy_x_1 of { happy_var_1 -> 
@@ -2615,20 +2629,20 @@ happyReduction_216 happy_x_3
 		 (Alt happy_var_1 happy_var_3
 	)}}
 
-happyReduce_217 = happySpecReduce_0 72# happyReduction_217
-happyReduction_217  =  happyIn79
+happyReduce_218 = happySpecReduce_0 72# happyReduction_218
+happyReduction_218  =  happyIn79
 		 ([]
 	)
 
-happyReduce_218 = happySpecReduce_1 72# happyReduction_218
-happyReduction_218 happy_x_1
+happyReduce_219 = happySpecReduce_1 72# happyReduction_219
+happyReduction_219 happy_x_1
 	 =  case happyOut78 happy_x_1 of { happy_var_1 -> 
 	happyIn79
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_219 = happySpecReduce_3 72# happyReduction_219
-happyReduction_219 happy_x_3
+happyReduce_220 = happySpecReduce_3 72# happyReduction_220
+happyReduction_220 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut78 happy_x_1 of { happy_var_1 -> 
@@ -2637,8 +2651,8 @@ happyReduction_219 happy_x_3
 		 ((:) happy_var_1 happy_var_3
 	)}}
 
-happyReduce_220 = happyReduce 5# 73# happyReduction_220
-happyReduction_220 (happy_x_5 `HappyStk`
+happyReduce_221 = happyReduce 5# 73# happyReduction_221
+happyReduction_221 (happy_x_5 `HappyStk`
 	happy_x_4 `HappyStk`
 	happy_x_3 `HappyStk`
 	happy_x_2 `HappyStk`
@@ -2650,20 +2664,20 @@ happyReduction_220 (happy_x_5 `HappyStk`
 		 (DDDec happy_var_2 happy_var_4
 	) `HappyStk` happyRest}}
 
-happyReduce_221 = happySpecReduce_1 73# happyReduction_221
-happyReduction_221 happy_x_1
+happyReduce_222 = happySpecReduce_1 73# happyReduction_222
+happyReduction_222 happy_x_1
 	 =  case happyOut52 happy_x_1 of { happy_var_1 -> 
 	happyIn80
 		 (DDExp happy_var_1
 	)}
 
-happyReduce_222 = happySpecReduce_0 74# happyReduction_222
-happyReduction_222  =  happyIn81
+happyReduce_223 = happySpecReduce_0 74# happyReduction_223
+happyReduction_223  =  happyIn81
 		 ([]
 	)
 
-happyReduce_223 = happySpecReduce_2 74# happyReduction_223
-happyReduction_223 happy_x_2
+happyReduce_224 = happySpecReduce_2 74# happyReduction_224
+happyReduction_224 happy_x_2
 	happy_x_1
 	 =  case happyOut81 happy_x_1 of { happy_var_1 -> 
 	case happyOut80 happy_x_2 of { happy_var_2 -> 
@@ -2671,8 +2685,8 @@ happyReduction_223 happy_x_2
 		 (flip (:) happy_var_1 happy_var_2
 	)}}
 
-happyReduce_224 = happySpecReduce_2 75# happyReduction_224
-happyReduction_224 happy_x_2
+happyReduce_225 = happySpecReduce_2 75# happyReduction_225
+happyReduction_225 happy_x_2
 	happy_x_1
 	 =  case happyOut83 happy_x_1 of { happy_var_1 -> 
 	case happyOut21 happy_x_2 of { happy_var_2 -> 
@@ -2680,47 +2694,39 @@ happyReduction_224 happy_x_2
 		 (OldGr happy_var_1 (reverse happy_var_2)
 	)}}
 
-happyReduce_225 = happySpecReduce_0 76# happyReduction_225
-happyReduction_225  =  happyIn83
+happyReduce_226 = happySpecReduce_0 76# happyReduction_226
+happyReduction_226  =  happyIn83
 		 (NoIncl
 	)
 
-happyReduce_226 = happySpecReduce_2 76# happyReduction_226
-happyReduction_226 happy_x_2
+happyReduce_227 = happySpecReduce_2 76# happyReduction_227
+happyReduction_227 happy_x_2
 	happy_x_1
 	 =  case happyOut85 happy_x_2 of { happy_var_2 -> 
 	happyIn83
 		 (Incl happy_var_2
 	)}
 
-happyReduce_227 = happySpecReduce_1 77# happyReduction_227
-happyReduction_227 happy_x_1
+happyReduce_228 = happySpecReduce_1 77# happyReduction_228
+happyReduction_228 happy_x_1
 	 =  case happyOut8 happy_x_1 of { happy_var_1 -> 
 	happyIn84
 		 (FString happy_var_1
 	)}
 
-happyReduce_228 = happySpecReduce_1 77# happyReduction_228
-happyReduction_228 happy_x_1
+happyReduce_229 = happySpecReduce_1 77# happyReduction_229
+happyReduction_229 happy_x_1
 	 =  case happyOut7 happy_x_1 of { happy_var_1 -> 
 	happyIn84
 		 (FIdent happy_var_1
 	)}
 
-happyReduce_229 = happySpecReduce_2 77# happyReduction_229
-happyReduction_229 happy_x_2
-	happy_x_1
-	 =  case happyOut84 happy_x_2 of { happy_var_2 -> 
-	happyIn84
-		 (FSlash happy_var_2
-	)}
-
 happyReduce_230 = happySpecReduce_2 77# happyReduction_230
 happyReduction_230 happy_x_2
 	happy_x_1
 	 =  case happyOut84 happy_x_2 of { happy_var_2 -> 
 	happyIn84
-		 (FDot happy_var_2
+		 (FSlash happy_var_2
 	)}
 
 happyReduce_231 = happySpecReduce_2 77# happyReduction_231
@@ -2728,11 +2734,19 @@ happyReduction_231 happy_x_2
 	happy_x_1
 	 =  case happyOut84 happy_x_2 of { happy_var_2 -> 
 	happyIn84
-		 (FMinus happy_var_2
+		 (FDot happy_var_2
 	)}
 
 happyReduce_232 = happySpecReduce_2 77# happyReduction_232
 happyReduction_232 happy_x_2
+	happy_x_1
+	 =  case happyOut84 happy_x_2 of { happy_var_2 -> 
+	happyIn84
+		 (FMinus happy_var_2
+	)}
+
+happyReduce_233 = happySpecReduce_2 77# happyReduction_233
+happyReduction_233 happy_x_2
 	happy_x_1
 	 =  case happyOut7 happy_x_1 of { happy_var_1 -> 
 	case happyOut84 happy_x_2 of { happy_var_2 -> 
@@ -2740,16 +2754,16 @@ happyReduction_232 happy_x_2
 		 (FAddId happy_var_1 happy_var_2
 	)}}
 
-happyReduce_233 = happySpecReduce_2 78# happyReduction_233
-happyReduction_233 happy_x_2
+happyReduce_234 = happySpecReduce_2 78# happyReduction_234
+happyReduction_234 happy_x_2
 	happy_x_1
 	 =  case happyOut84 happy_x_1 of { happy_var_1 -> 
 	happyIn85
 		 ((:[]) happy_var_1
 	)}
 
-happyReduce_234 = happySpecReduce_3 78# happyReduction_234
-happyReduction_234 happy_x_3
+happyReduce_235 = happySpecReduce_3 78# happyReduction_235
+happyReduction_235 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut84 happy_x_1 of { happy_var_1 -> 
@@ -2861,7 +2875,7 @@ pOldGrammar tks = happyThen (happyParse 2# tks) (\x -> happyReturn (happyOut82 x
 
 pExp tks = happyThen (happyParse 3# tks) (\x -> happyReturn (happyOut56 x))
 
-happySeq = happyDoSeq
+happySeq = happyDontSeq
 
 returnM :: a -> Err a
 returnM = return
@@ -2875,7 +2889,7 @@ happyError ts =
 
 myLexer = tokens
 {-# LINE 1 "GenericTemplate.hs" #-}
--- $Id: ParGF.hs,v 1.5 2004/12/06 18:44:59 bringert Exp $
+-- $Id: ParGF.hs,v 1.6 2005/01/11 16:06:14 aarne Exp $
 
 
 
diff --git a/src/GF/Source/PrintGF.hs b/src/GF/Source/PrintGF.hs
index ce8ac22cc..f33ec0c96 100644
--- a/src/GF/Source/PrintGF.hs
+++ b/src/GF/Source/PrintGF.hs
@@ -334,6 +334,7 @@ instance Print Exp where
    EApp exp0 exp -> prPrec i 2 (concatD [prt 2 exp0 , prt 3 exp])
    ETable cases -> prPrec i 2 (concatD [doc (showString "table") , doc (showString "{") , prt 0 cases , doc (showString "}")])
    ETTable exp cases -> prPrec i 2 (concatD [doc (showString "table") , prt 4 exp , doc (showString "{") , prt 0 cases , doc (showString "}")])
+   EVTable exp exps -> prPrec i 2 (concatD [doc (showString "table") , prt 4 exp , doc (showString "[") , prt 0 exps , doc (showString "]")])
    ECase exp cases -> prPrec i 2 (concatD [doc (showString "case") , prt 0 exp , doc (showString "of") , doc (showString "{") , prt 0 cases , doc (showString "}")])
    EVariants exps -> prPrec i 2 (concatD [doc (showString "variants") , doc (showString "{") , prt 0 exps , doc (showString "}")])
    EPre exp alterns -> prPrec i 2 (concatD [doc (showString "pre") , doc (showString "{") , prt 0 exp , doc (showString ";") , prt 0 alterns , doc (showString "}")])
diff --git a/src/GF/Source/SkelGF.hs b/src/GF/Source/SkelGF.hs
index 544473533..73a78c5a2 100644
--- a/src/GF/Source/SkelGF.hs
+++ b/src/GF/Source/SkelGF.hs
@@ -206,6 +206,7 @@ transExp x = case x of
   EApp exp0 exp  -> failure x
   ETable cases  -> failure x
   ETTable exp cases  -> failure x
+  EVTable exp exps  -> failure x
   ECase exp cases  -> failure x
   EVariants exps  -> failure x
   EPre exp alterns  -> failure x
diff --git a/src/GF/Source/SourceToGrammar.hs b/src/GF/Source/SourceToGrammar.hs
index 38a55e4d5..1ab949c9d 100644
--- a/src/GF/Source/SourceToGrammar.hs
+++ b/src/GF/Source/SourceToGrammar.hs
@@ -350,6 +350,8 @@ transExp x = case x of
   ETable cases  -> liftM (G.T G.TRaw) (transCases cases)
   ETTable exp cases -> 
     liftM2 (\t c -> G.T (G.TTyped t) c) (transExp exp) (transCases cases)
+  EVTable exp cases -> 
+    liftM2 (\t c -> G.V t c) (transExp exp) (mapM transExp cases)
   ECase exp cases  -> do
     exp' <- transExp exp
     cases' <- transCases cases
diff --git a/src/GF/Source/TestGF.hs b/src/GF/Source/TestGF.hs
index d6c026487..f72e69b31 100644
--- a/src/GF/Source/TestGF.hs
+++ b/src/GF/Source/TestGF.hs
@@ -18,22 +18,28 @@ type ParseFun a = [Token] -> Err a
 
 myLLexer = myLexer
 
-runFile :: (Print a, Show a) => ParseFun a -> FilePath -> IO ()
-runFile p f = readFile f >>= run p
+type Verbosity = Int
 
-run :: (Print a, Show a) => ParseFun a -> String -> IO ()
-run p s = case (p (myLLexer s)) of
-           Bad s    -> do  putStrLn "\nParse Failed...\n"
+putStrV :: Verbosity -> String -> IO ()
+putStrV v s = if v > 1 then putStrLn s else return ()
+
+runFile :: (Print a, Show a) => Verbosity -> ParseFun a -> FilePath -> IO ()
+runFile v p f = putStrLn f >> readFile f >>= run v p
+
+run :: (Print a, Show a) => Verbosity -> ParseFun a -> String -> IO ()
+run v p s = let ts = myLLexer s in case p ts of
+           Bad s    -> do  putStrLn "\nParse              Failed...\n"
+                           putStrV v "Tokens:"
+                           putStrV v $ show ts
                            putStrLn s
            Ok  tree -> do putStrLn "\nParse Successful!"
-                          putStrLn $ "\n[Abstract Syntax]\n\n" ++ show tree
-                          putStrLn $ "\n[Linearized tree]\n\n" ++ printTree tree
+                          putStrV v $ "\n[Abstract Syntax]\n\n" ++ show tree
+                          putStrV v $ "\n[Linearized tree]\n\n" ++ printTree tree
 
 
 main :: IO ()
 main = do args <- getArgs
           case args of
-            []  -> hGetContents stdin >>= run pGrammar
-            [f] -> runFile pGrammar f
-            _   -> do progName <- getProgName
-                      putStrLn $ progName ++ ": excess arguments."
+            [] -> hGetContents stdin >>= run 2 pGrammar
+            "-s":fs -> mapM_ (runFile 0 pGrammar) fs
+            fs -> mapM_ (runFile 2 pGrammar) fs