diff --git a/CHANGELOG b/CHANGELOG
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,3 +1,6 @@
+Changes in 1.9.1
+  * Allow keywords as the name of constructors
+
 Changes in 1.9
   * Add support for pre-processing values before printing.
     In particular, we add a pre-processor which will hide some constructors
diff --git a/Text/Show/Parser.y b/Text/Show/Parser.y
--- a/Text/Show/Parser.y
+++ b/Text/Show/Parser.y
@@ -37,8 +37,10 @@
         CONSYM          { (Consym,   (_,$$)) }
         QCONSYM         { (Qconsym,  (_,$$)) }
         RESOP           { (Reservedop, (_,$$)) }
+        RESID           { (Reservedid, (_,$$)) }
 
 
+
 %monad { Maybe } { (>>=) } { return }
 %name parseValue value
 %tokentype { PosToken }
@@ -82,6 +84,7 @@
   | prefix(QVARSYM)             { $1 }
   | '<' VARID '>'               { "<" ++ $2 ++ ">" } -- note: looses space
   | '<' CONID '>'               { "<" ++ $2 ++ ">" } -- ditto
+  | RESID                       { $1 }
 
 infixcon                     :: { String }
   : CONSYM                      { $1 }
diff --git a/dist/build/Text/Show/Parser.hs b/dist/build/Text/Show/Parser.hs
--- a/dist/build/Text/Show/Parser.hs
+++ b/dist/build/Text/Show/Parser.hs
@@ -200,40 +200,40 @@
 
 
 happyExpList :: HappyAddr
-happyExpList = HappyA# "\x00\x00\x00\x00\x51\xf2\x33\x00\x00\x00\x00\x44\xc9\xcf\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x02\x70\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x94\xfc\x0c\x00\x00\x00\x00\x51\xf2\xff\x00\x00\x00\x00\x44\xc9\xcf\x00\x00\x00\x00\x00\x00\x10\x01\x00\x00\x00\x40\x94\xfc\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\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x44\xc9\xcf\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x14\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x05\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x44\xc9\xcf\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x70\x00\x00\x00\x00\x00\x00\x30\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x25\x3f\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\x40\x00\x00\x00\x00\x00\x00\x51\xf2\x33\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x94\xfc\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\x01\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00"#
+happyExpList = HappyA# "\x00\x00\x00\x00\x51\xf2\x33\x02\x00\x00\x00\x88\x92\x9f\x11\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x10\x80\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\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\x00\xa2\xe4\x67\x04\x00\x00\x00\x10\x25\xff\x2f\x00\x00\x00\x80\x28\xf9\x19\x01\x00\x00\x00\x00\x00\x44\x00\x00\x00\x00\x20\x4a\x7e\x46\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x40\x94\xfc\x8c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x14\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x28\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x94\xfc\x8c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x1c\x00\x00\x00\x00\x00\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x4a\x7e\x46\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x80\x28\xf9\x19\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\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x25\x3f\x23\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00"#
 
 {-# NOINLINE happyExpListPerState #-}
 happyExpListPerState st =
     token_strs_expected
-  where token_strs = ["error","%dummy","%start_parseValue","value","infixelem","app_value","avalue","con","infixcon","field","tuple","list1__avalue__","list1__infixelem__","prefix__CONSYM__","prefix__QCONSYM__","prefix__QVARSYM__","prefix__VARSYM__","sep__field__','__","sep__value__','__","sep1__value__','__","list__snd__','__value____","rev_list1__avalue__","rev_list1__infixelem__","sep1__field__','__","snd__','__value__","list__snd__','__field____","list1__snd__','__value____","snd__','__field__","list1__snd__','__field____","rev_list1__snd__','__value____","rev_list1__snd__','__field____","'='","'('","')'","'{'","'}'","'['","']'","'<'","'>'","','","'-'","'%'","'`'","INT","FLOAT","STRING","CHAR","VARID","QVARID","VARSYM","QVARSYM","CONID","QCONID","CONSYM","QCONSYM","RESOP","%eof"]
-        bit_start = st * 58
-        bit_end = (st + 1) * 58
+  where token_strs = ["error","%dummy","%start_parseValue","value","infixelem","app_value","avalue","con","infixcon","field","tuple","list1__avalue__","list1__infixelem__","prefix__CONSYM__","prefix__QCONSYM__","prefix__QVARSYM__","prefix__VARSYM__","sep__field__','__","sep__value__','__","sep1__value__','__","list__snd__','__value____","rev_list1__avalue__","rev_list1__infixelem__","sep1__field__','__","snd__','__value__","list__snd__','__field____","list1__snd__','__value____","snd__','__field__","list1__snd__','__field____","rev_list1__snd__','__value____","rev_list1__snd__','__field____","'='","'('","')'","'{'","'}'","'['","']'","'<'","'>'","','","'-'","'%'","'`'","INT","FLOAT","STRING","CHAR","VARID","QVARID","VARSYM","QVARSYM","CONID","QCONID","CONSYM","QCONSYM","RESOP","RESID","%eof"]
+        bit_start = st * 59
+        bit_end = (st + 1) * 59
         read_bit = readArrayBit happyExpList
         bits = map read_bit [bit_start..bit_end - 1]
-        bits_indexed = zip bits [0..57]
+        bits_indexed = zip bits [0..58]
         token_strs_expected = concatMap f bits_indexed
         f (False, _) = []
         f (True, nr) = [token_strs !! nr]
 
 happyActOffsets :: HappyAddr
-happyActOffsets = HappyA# "\x17\x00\x17\x00\xfd\xff\xb4\x00\x00\x00\x16\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x17\x00\xff\xff\x17\x00\x1a\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x17\x00\x00\x00\x03\x00\x12\x00\x44\x00\x1d\x00\x00\x00\x4c\x00\x32\x00\x3a\x00\x42\x00\x43\x00\x46\x00\x00\x00\x24\x00\x00\x00\x17\x00\x00\x00\xb4\x00\xed\xff\x00\x00\x00\x00\x00\x00\x4a\x00\x4d\x00\x00\x00\x00\x00\x55\x00\x5b\x00\x00\x00\x66\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x5e\x00\x17\x00\x00\x00\x00\x00\x00\x00\x5d\x00\x00\x00\x00\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x61\x00\x5f\x00\x00\x00\x00\x00\x00\x00\x00\x00\x64\x00\x00\x00"#
+happyActOffsets = HappyA# "\x17\x00\x17\x00\xfd\xff\xb6\x00\x00\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x17\x00\xff\xff\x17\x00\x1a\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0f\x00\x17\x00\x00\x00\x03\x00\x1b\x00\x4e\x00\x30\x00\x00\x00\x2c\x00\x37\x00\x3c\x00\x45\x00\x4d\x00\x4f\x00\x00\x00\x3f\x00\x00\x00\x17\x00\x00\x00\xb6\x00\xed\xff\x00\x00\x00\x00\x00\x00\x4c\x00\x54\x00\x00\x00\x00\x00\x52\x00\x5d\x00\x00\x00\x68\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x60\x00\x17\x00\x00\x00\x00\x00\x00\x00\x5f\x00\x00\x00\x00\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x63\x00\x61\x00\x00\x00\x00\x00\x00\x00\x00\x00\x66\x00\x00\x00"#
 
 happyGotoOffsets :: HappyAddr
-happyGotoOffsets = HappyA# "\x62\x00\x73\x00\x00\x00\xa3\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc5\x00\x40\x00\x2f\x00\x00\x00\xd0\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa7\x00\x00\x00\x00\x00\x00\x00\xf1\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xaa\x00\x00\x00\xb8\x00\x00\x00\x33\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x51\x00\x00\x00\x00\x00\x00\x00\x00\x00\x63\x00\x84\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x95\x00\x00\x00\x00\x00\x00\x00\x00\x00\x5a\x00\x74\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
+happyGotoOffsets = HappyA# "\x64\x00\x75\x00\x00\x00\xa5\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc7\x00\x42\x00\x31\x00\x00\x00\xd2\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa9\x00\x00\x00\x00\x00\x00\x00\xf1\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xac\x00\x00\x00\xba\x00\x00\x00\x46\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x53\x00\x00\x00\x00\x00\x00\x00\x00\x00\x65\x00\x86\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x97\x00\x00\x00\x00\x00\x00\x00\x00\x00\x5c\x00\x76\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
 
 happyAdjustOffset :: Happy_GHC_Exts.Int# -> Happy_GHC_Exts.Int#
 happyAdjustOffset off = off
 
 happyDefActions :: HappyAddr
-happyDefActions = HappyA# "\x00\x00\x00\x00\x00\x00\xfd\xff\xd0\xff\xf5\xff\xfa\xff\xed\xff\xec\xff\xe8\xff\xe9\xff\xdd\xff\xdf\xff\xd4\xff\x00\x00\x00\x00\xf4\xff\xf3\xff\xf2\xff\xf1\xff\xeb\xff\xea\xff\xef\xff\xee\xff\x00\x00\x00\x00\xf0\xff\x00\x00\x00\x00\xd1\xff\x00\x00\xd5\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xcf\xff\xd6\xff\xce\xff\x00\x00\xfc\xff\xdc\xff\x00\x00\xe5\xff\xe4\xff\xe1\xff\x00\x00\x00\x00\xcd\xff\xfb\xff\xc9\xff\x00\x00\xd7\xff\x00\x00\xda\xff\xdb\xff\xd9\xff\xd8\xff\xf7\xff\xf9\xff\x00\x00\xf8\xff\xd3\xff\xc5\xff\xd2\xff\xc8\xff\x00\x00\xe6\xff\xe7\xff\xfe\xff\xcb\xff\xc4\xff\xde\xff\x00\x00\xf6\xff\xcc\xff\xc3\xff\xca\xff\xc6\xff\x00\x00\xe2\xff\xe3\xff\xc7\xff\xc2\xff\xe0\xff"#
+happyDefActions = HappyA# "\x00\x00\x00\x00\x00\x00\xfd\xff\xcf\xff\xf5\xff\xfa\xff\xed\xff\xec\xff\xe8\xff\xe9\xff\xdc\xff\xde\xff\xd3\xff\x00\x00\x00\x00\xf4\xff\xf3\xff\xf2\xff\xf1\xff\xeb\xff\xea\xff\xef\xff\xee\xff\xe5\xff\x00\x00\x00\x00\xf0\xff\x00\x00\x00\x00\xd0\xff\x00\x00\xd4\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xce\xff\xd5\xff\xcd\xff\x00\x00\xfc\xff\xdb\xff\x00\x00\xe4\xff\xe3\xff\xe0\xff\x00\x00\x00\x00\xcc\xff\xfb\xff\xc8\xff\x00\x00\xd6\xff\x00\x00\xd9\xff\xda\xff\xd8\xff\xd7\xff\xf7\xff\xf9\xff\x00\x00\xf8\xff\xd2\xff\xc4\xff\xd1\xff\xc7\xff\x00\x00\xe6\xff\xe7\xff\xfe\xff\xca\xff\xc3\xff\xdd\xff\x00\x00\xf6\xff\xcb\xff\xc2\xff\xc9\xff\xc5\xff\x00\x00\xe1\xff\xe2\xff\xc6\xff\xc1\xff\xdf\xff"#
 
 happyCheck :: HappyAddr
-happyCheck = HappyA# "\xff\xff\x02\x00\x11\x00\x16\x00\x17\x00\x06\x00\x15\x00\x08\x00\x17\x00\x0c\x00\x0b\x00\x1a\x00\x09\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\x02\x00\x04\x00\x09\x00\x0c\x00\x06\x00\x16\x00\x08\x00\x18\x00\x19\x00\x0b\x00\x1b\x00\x07\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x1b\x00\x12\x00\x16\x00\x17\x00\x00\x00\x16\x00\x02\x00\x03\x00\x04\x00\x01\x00\x03\x00\x12\x00\x08\x00\x05\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x03\x00\x0f\x00\x10\x00\x00\x00\x12\x00\x02\x00\x03\x00\x04\x00\x03\x00\x03\x00\x07\x00\x08\x00\x03\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0a\x00\x03\x00\x0c\x00\x00\x00\x12\x00\x02\x00\x03\x00\x04\x00\x0a\x00\x0d\x00\x0c\x00\x08\x00\x0d\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0a\x00\x05\x00\x10\x00\x00\x00\x12\x00\x02\x00\x03\x00\x04\x00\x01\x00\x0a\x00\x0c\x00\x08\x00\x0a\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0c\x00\x12\x00\x18\x00\x00\x00\x12\x00\x02\x00\x03\x00\x04\x00\x15\x00\xff\xff\x06\x00\x08\x00\xff\xff\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xff\xff\xff\xff\xff\xff\x00\x00\x12\x00\x02\x00\x03\x00\x04\x00\xff\xff\xff\xff\xff\xff\x08\x00\xff\xff\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xff\xff\xff\xff\xff\xff\x00\x00\x12\x00\x02\x00\x03\x00\x04\x00\xff\xff\xff\xff\xff\xff\x08\x00\xff\xff\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xff\xff\x01\x00\xff\xff\xff\xff\x12\x00\x05\x00\x02\x00\x03\x00\x04\x00\x09\x00\xff\xff\xff\xff\x08\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xff\xff\x13\x00\xff\xff\x0e\x00\x12\x00\x02\x00\x03\x00\x04\x00\xff\xff\x14\x00\xff\xff\x08\x00\x0d\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xff\xff\xff\xff\x03\x00\x04\x00\x12\x00\xff\xff\x18\x00\x19\x00\x1a\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x03\x00\x04\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\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\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"#
+happyCheck = HappyA# "\xff\xff\x02\x00\x11\x00\x16\x00\x17\x00\x06\x00\x15\x00\x08\x00\x17\x00\x0c\x00\x0b\x00\x1a\x00\x09\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\x02\x00\x1b\x00\x0c\x00\x04\x00\x06\x00\x16\x00\x08\x00\x18\x00\x19\x00\x0b\x00\x1b\x00\x09\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x1c\x00\x12\x00\x16\x00\x17\x00\x03\x00\x16\x00\x00\x00\x1b\x00\x02\x00\x03\x00\x04\x00\x0a\x00\x07\x00\x0c\x00\x08\x00\x03\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x03\x00\x0f\x00\x10\x00\x00\x00\x12\x00\x02\x00\x03\x00\x04\x00\x01\x00\x03\x00\x07\x00\x08\x00\x05\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x03\x00\x12\x00\x03\x00\x00\x00\x12\x00\x02\x00\x03\x00\x04\x00\x0a\x00\x0d\x00\x0c\x00\x08\x00\x0a\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0d\x00\x05\x00\x10\x00\x00\x00\x12\x00\x02\x00\x03\x00\x04\x00\x01\x00\x0a\x00\x0c\x00\x08\x00\x0a\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0c\x00\x12\x00\x18\x00\x00\x00\x12\x00\x02\x00\x03\x00\x04\x00\x15\x00\xff\xff\x06\x00\x08\x00\xff\xff\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xff\xff\xff\xff\xff\xff\x00\x00\x12\x00\x02\x00\x03\x00\x04\x00\xff\xff\xff\xff\xff\xff\x08\x00\xff\xff\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xff\xff\xff\xff\xff\xff\x00\x00\x12\x00\x02\x00\x03\x00\x04\x00\xff\xff\xff\xff\xff\xff\x08\x00\xff\xff\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xff\xff\x01\x00\xff\xff\xff\xff\x12\x00\x05\x00\x02\x00\x03\x00\x04\x00\x09\x00\xff\xff\xff\xff\x08\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xff\xff\x13\x00\xff\xff\x0e\x00\x12\x00\x02\x00\x03\x00\x04\x00\xff\xff\x14\x00\xff\xff\x08\x00\x0d\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xff\xff\xff\xff\x03\x00\x04\x00\x12\x00\xff\xff\x18\x00\x19\x00\x1a\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x03\x00\x04\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\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\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"#
 
 happyTable :: HappyAddr
-happyTable = HappyA# "\x00\x00\x0d\x00\x40\x00\x31\x00\x32\x00\x0e\x00\x41\x00\x0f\x00\x42\x00\x1a\x00\x10\x00\x43\x00\x47\x00\x11\x00\x12\x00\x13\x00\x14\x00\x15\x00\x16\x00\x23\x00\x24\x00\x17\x00\x18\x00\x25\x00\x26\x00\x0d\x00\x28\x00\x46\x00\x1a\x00\x0e\x00\x4d\x00\x0f\x00\x4e\x00\x4f\x00\x10\x00\x50\x00\x40\x00\x11\x00\x12\x00\x13\x00\x14\x00\x15\x00\x16\x00\xff\xff\x1c\x00\x17\x00\x18\x00\x1d\x00\x1d\x00\x03\x00\x04\x00\x05\x00\x32\x00\x3d\x00\x38\x00\x06\x00\x29\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x3c\x00\x1e\x00\x1f\x00\x20\x00\x0b\x00\x03\x00\x04\x00\x05\x00\x3b\x00\x3a\x00\x21\x00\x06\x00\x39\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x45\x00\x3e\x00\x1a\x00\x1d\x00\x0b\x00\x03\x00\x04\x00\x05\x00\x3f\x00\x54\x00\x1a\x00\x06\x00\x53\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x52\x00\x4d\x00\x4a\x00\x18\x00\x0b\x00\x03\x00\x04\x00\x05\x00\x4c\x00\x45\x00\x1a\x00\x06\x00\x52\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x1a\x00\x38\x00\x55\x00\x02\x00\x0b\x00\x03\x00\x04\x00\x05\x00\x49\x00\x00\x00\x54\x00\x06\x00\x00\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x00\x00\x00\x00\x00\x00\x48\x00\x0b\x00\x03\x00\x04\x00\x05\x00\x00\x00\x00\x00\x00\x00\x06\x00\x00\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x00\x00\x00\x00\x00\x00\x56\x00\x0b\x00\x03\x00\x04\x00\x05\x00\x00\x00\x00\x00\x00\x00\x06\x00\x00\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x00\x00\x28\x00\x00\x00\x00\x00\x0b\x00\x29\x00\x47\x00\x04\x00\x05\x00\x2a\x00\x00\x00\x00\x00\x06\x00\x34\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x00\x00\x2b\x00\x00\x00\x35\x00\x0b\x00\x33\x00\x04\x00\x05\x00\x00\x00\x36\x00\x00\x00\x06\x00\x2d\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x00\x00\x00\x00\x26\x00\x05\x00\x0b\x00\x00\x00\x2e\x00\x2f\x00\x30\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x1a\x00\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x07\x00\x08\x00\x09\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"#
+happyTable = HappyA# "\x00\x00\x0d\x00\x41\x00\x32\x00\x33\x00\x0e\x00\x42\x00\x0f\x00\x43\x00\x1b\x00\x10\x00\x44\x00\x48\x00\x11\x00\x12\x00\x13\x00\x14\x00\x15\x00\x16\x00\x24\x00\x25\x00\x17\x00\x18\x00\x26\x00\x27\x00\x0d\x00\x19\x00\x1b\x00\x29\x00\x0e\x00\x4e\x00\x0f\x00\x4f\x00\x50\x00\x10\x00\x51\x00\x47\x00\x11\x00\x12\x00\x13\x00\x14\x00\x15\x00\x16\x00\xff\xff\x1d\x00\x17\x00\x18\x00\x3f\x00\x1e\x00\x1e\x00\x19\x00\x03\x00\x04\x00\x05\x00\x40\x00\x41\x00\x1b\x00\x06\x00\x3e\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x3d\x00\x1f\x00\x20\x00\x21\x00\x0b\x00\x03\x00\x04\x00\x05\x00\x33\x00\x3c\x00\x22\x00\x06\x00\x2a\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x3b\x00\x39\x00\x3a\x00\x1e\x00\x0b\x00\x03\x00\x04\x00\x05\x00\x46\x00\x55\x00\x1b\x00\x06\x00\x53\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x54\x00\x4e\x00\x4b\x00\x19\x00\x0b\x00\x03\x00\x04\x00\x05\x00\x4d\x00\x46\x00\x1b\x00\x06\x00\x53\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x1b\x00\x39\x00\x56\x00\x02\x00\x0b\x00\x03\x00\x04\x00\x05\x00\x4a\x00\x00\x00\x55\x00\x06\x00\x00\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x00\x00\x00\x00\x00\x00\x49\x00\x0b\x00\x03\x00\x04\x00\x05\x00\x00\x00\x00\x00\x00\x00\x06\x00\x00\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x00\x00\x00\x00\x00\x00\x57\x00\x0b\x00\x03\x00\x04\x00\x05\x00\x00\x00\x00\x00\x00\x00\x06\x00\x00\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x00\x00\x29\x00\x00\x00\x00\x00\x0b\x00\x2a\x00\x48\x00\x04\x00\x05\x00\x2b\x00\x00\x00\x00\x00\x06\x00\x35\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x00\x00\x2c\x00\x00\x00\x36\x00\x0b\x00\x34\x00\x04\x00\x05\x00\x00\x00\x37\x00\x00\x00\x06\x00\x2e\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x00\x00\x00\x00\x27\x00\x05\x00\x0b\x00\x00\x00\x2f\x00\x30\x00\x31\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x1b\x00\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x07\x00\x08\x00\x09\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"#
 
-happyReduceArr = Happy_Data_Array.array (1, 61) [
+happyReduceArr = Happy_Data_Array.array (1, 62) [
 	(1 , happyReduce_1),
 	(2 , happyReduce_2),
 	(3 , happyReduce_3),
@@ -294,10 +294,11 @@
 	(58 , happyReduce_58),
 	(59 , happyReduce_59),
 	(60 , happyReduce_60),
-	(61 , happyReduce_61)
+	(61 , happyReduce_61),
+	(62 , happyReduce_62)
 	]
 
-happy_n_terms = 28 :: Int
+happy_n_terms = 29 :: Int
 happy_n_nonterms = 28 :: Int
 
 #if __GLASGOW_HASKELL__ >= 710
@@ -550,10 +551,10 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_26 = happySpecReduce_1  5# happyReduction_26
+happyReduce_26 = happySpecReduce_1  4# happyReduction_26
 happyReduction_26 happy_x_1
-	 =  case happyOutTok happy_x_1 of { ((Consym,   (_,happy_var_1))) -> 
-	happyIn9
+	 =  case happyOutTok happy_x_1 of { ((Reservedid, (_,happy_var_1))) -> 
+	happyIn8
 		 (happy_var_1
 	)}
 
@@ -561,6 +562,15 @@
 #endif
 happyReduce_27 = happySpecReduce_1  5# happyReduction_27
 happyReduction_27 happy_x_1
+	 =  case happyOutTok happy_x_1 of { ((Consym,   (_,happy_var_1))) -> 
+	happyIn9
+		 (happy_var_1
+	)}
+
+#if __GLASGOW_HASKELL__ >= 710
+#endif
+happyReduce_28 = happySpecReduce_1  5# happyReduction_28
+happyReduction_28 happy_x_1
 	 =  case happyOutTok happy_x_1 of { ((Qconsym,  (_,happy_var_1))) -> 
 	happyIn9
 		 (happy_var_1
@@ -568,8 +578,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_28 = happySpecReduce_3  5# happyReduction_28
-happyReduction_28 happy_x_3
+happyReduce_29 = happySpecReduce_3  5# happyReduction_29
+happyReduction_29 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOutTok happy_x_2 of { ((Conid,    (_,happy_var_2))) -> 
@@ -579,8 +589,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_29 = happySpecReduce_3  5# happyReduction_29
-happyReduction_29 happy_x_3
+happyReduce_30 = happySpecReduce_3  5# happyReduction_30
+happyReduction_30 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOutTok happy_x_2 of { ((Qconid,   (_,happy_var_2))) -> 
@@ -590,8 +600,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_30 = happySpecReduce_1  5# happyReduction_30
-happyReduction_30 happy_x_1
+happyReduce_31 = happySpecReduce_1  5# happyReduction_31
+happyReduction_31 happy_x_1
 	 =  case happyOutTok happy_x_1 of { ((Reservedop, (_,happy_var_1))) -> 
 	happyIn9
 		 (happy_var_1
@@ -599,8 +609,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_31 = happySpecReduce_3  6# happyReduction_31
-happyReduction_31 happy_x_3
+happyReduce_32 = happySpecReduce_3  6# happyReduction_32
+happyReduction_32 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOutTok happy_x_1 of { ((Varid,    (_,happy_var_1))) -> 
@@ -611,15 +621,15 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_32 = happySpecReduce_0  7# happyReduction_32
-happyReduction_32  =  happyIn11
+happyReduce_33 = happySpecReduce_0  7# happyReduction_33
+happyReduction_33  =  happyIn11
 		 ([]
 	)
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_33 = happySpecReduce_3  7# happyReduction_33
-happyReduction_33 happy_x_3
+happyReduce_34 = happySpecReduce_3  7# happyReduction_34
+happyReduction_34 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOut4 happy_x_1 of { happy_var_1 -> 
@@ -630,8 +640,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_34 = happySpecReduce_1  8# happyReduction_34
-happyReduction_34 happy_x_1
+happyReduce_35 = happySpecReduce_1  8# happyReduction_35
+happyReduction_35 happy_x_1
 	 =  case happyOut22 happy_x_1 of { happy_var_1 -> 
 	happyIn12
 		 (reverse happy_var_1
@@ -639,8 +649,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_35 = happySpecReduce_1  9# happyReduction_35
-happyReduction_35 happy_x_1
+happyReduce_36 = happySpecReduce_1  9# happyReduction_36
+happyReduction_36 happy_x_1
 	 =  case happyOut23 happy_x_1 of { happy_var_1 -> 
 	happyIn13
 		 (reverse happy_var_1
@@ -648,8 +658,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_36 = happySpecReduce_3  10# happyReduction_36
-happyReduction_36 happy_x_3
+happyReduce_37 = happySpecReduce_3  10# happyReduction_37
+happyReduction_37 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOutTok happy_x_2 of { ((Consym,   (_,happy_var_2))) -> 
@@ -659,8 +669,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_37 = happySpecReduce_3  11# happyReduction_37
-happyReduction_37 happy_x_3
+happyReduce_38 = happySpecReduce_3  11# happyReduction_38
+happyReduction_38 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOutTok happy_x_2 of { ((Qconsym,  (_,happy_var_2))) -> 
@@ -670,8 +680,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_38 = happySpecReduce_3  12# happyReduction_38
-happyReduction_38 happy_x_3
+happyReduce_39 = happySpecReduce_3  12# happyReduction_39
+happyReduction_39 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOutTok happy_x_2 of { ((Qvarsym,  (_,happy_var_2))) -> 
@@ -681,8 +691,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_39 = happySpecReduce_3  13# happyReduction_39
-happyReduction_39 happy_x_3
+happyReduce_40 = happySpecReduce_3  13# happyReduction_40
+happyReduction_40 happy_x_3
 	happy_x_2
 	happy_x_1
 	 =  case happyOutTok happy_x_2 of { ((Varsym,   (_,happy_var_2))) -> 
@@ -692,8 +702,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_40 = happySpecReduce_1  14# happyReduction_40
-happyReduction_40 happy_x_1
+happyReduce_41 = happySpecReduce_1  14# happyReduction_41
+happyReduction_41 happy_x_1
 	 =  case happyOut24 happy_x_1 of { happy_var_1 -> 
 	happyIn18
 		 (happy_var_1
@@ -701,15 +711,15 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_41 = happySpecReduce_0  14# happyReduction_41
-happyReduction_41  =  happyIn18
+happyReduce_42 = happySpecReduce_0  14# happyReduction_42
+happyReduction_42  =  happyIn18
 		 ([]
 	)
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_42 = happySpecReduce_1  15# happyReduction_42
-happyReduction_42 happy_x_1
+happyReduce_43 = happySpecReduce_1  15# happyReduction_43
+happyReduction_43 happy_x_1
 	 =  case happyOut20 happy_x_1 of { happy_var_1 -> 
 	happyIn19
 		 (happy_var_1
@@ -717,15 +727,15 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_43 = happySpecReduce_0  15# happyReduction_43
-happyReduction_43  =  happyIn19
+happyReduce_44 = happySpecReduce_0  15# happyReduction_44
+happyReduction_44  =  happyIn19
 		 ([]
 	)
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_44 = happySpecReduce_2  16# happyReduction_44
-happyReduction_44 happy_x_2
+happyReduce_45 = happySpecReduce_2  16# happyReduction_45
+happyReduction_45 happy_x_2
 	happy_x_1
 	 =  case happyOut4 happy_x_1 of { happy_var_1 -> 
 	case happyOut21 happy_x_2 of { happy_var_2 -> 
@@ -735,8 +745,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_45 = happySpecReduce_1  17# happyReduction_45
-happyReduction_45 happy_x_1
+happyReduce_46 = happySpecReduce_1  17# happyReduction_46
+happyReduction_46 happy_x_1
 	 =  case happyOut27 happy_x_1 of { happy_var_1 -> 
 	happyIn21
 		 (happy_var_1
@@ -744,15 +754,15 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_46 = happySpecReduce_0  17# happyReduction_46
-happyReduction_46  =  happyIn21
+happyReduce_47 = happySpecReduce_0  17# happyReduction_47
+happyReduction_47  =  happyIn21
 		 ([]
 	)
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_47 = happySpecReduce_1  18# happyReduction_47
-happyReduction_47 happy_x_1
+happyReduce_48 = happySpecReduce_1  18# happyReduction_48
+happyReduction_48 happy_x_1
 	 =  case happyOut7 happy_x_1 of { happy_var_1 -> 
 	happyIn22
 		 ([happy_var_1]
@@ -760,8 +770,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_48 = happySpecReduce_2  18# happyReduction_48
-happyReduction_48 happy_x_2
+happyReduce_49 = happySpecReduce_2  18# happyReduction_49
+happyReduction_49 happy_x_2
 	happy_x_1
 	 =  case happyOut22 happy_x_1 of { happy_var_1 -> 
 	case happyOut7 happy_x_2 of { happy_var_2 -> 
@@ -771,8 +781,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_49 = happySpecReduce_1  19# happyReduction_49
-happyReduction_49 happy_x_1
+happyReduce_50 = happySpecReduce_1  19# happyReduction_50
+happyReduction_50 happy_x_1
 	 =  case happyOut5 happy_x_1 of { happy_var_1 -> 
 	happyIn23
 		 ([happy_var_1]
@@ -780,8 +790,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_50 = happySpecReduce_2  19# happyReduction_50
-happyReduction_50 happy_x_2
+happyReduce_51 = happySpecReduce_2  19# happyReduction_51
+happyReduction_51 happy_x_2
 	happy_x_1
 	 =  case happyOut23 happy_x_1 of { happy_var_1 -> 
 	case happyOut5 happy_x_2 of { happy_var_2 -> 
@@ -791,8 +801,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_51 = happySpecReduce_2  20# happyReduction_51
-happyReduction_51 happy_x_2
+happyReduce_52 = happySpecReduce_2  20# happyReduction_52
+happyReduction_52 happy_x_2
 	happy_x_1
 	 =  case happyOut10 happy_x_1 of { happy_var_1 -> 
 	case happyOut26 happy_x_2 of { happy_var_2 -> 
@@ -802,8 +812,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_52 = happySpecReduce_2  21# happyReduction_52
-happyReduction_52 happy_x_2
+happyReduce_53 = happySpecReduce_2  21# happyReduction_53
+happyReduction_53 happy_x_2
 	happy_x_1
 	 =  case happyOut4 happy_x_2 of { happy_var_2 -> 
 	happyIn25
@@ -812,8 +822,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_53 = happySpecReduce_1  22# happyReduction_53
-happyReduction_53 happy_x_1
+happyReduce_54 = happySpecReduce_1  22# happyReduction_54
+happyReduction_54 happy_x_1
 	 =  case happyOut29 happy_x_1 of { happy_var_1 -> 
 	happyIn26
 		 (happy_var_1
@@ -821,15 +831,15 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_54 = happySpecReduce_0  22# happyReduction_54
-happyReduction_54  =  happyIn26
+happyReduce_55 = happySpecReduce_0  22# happyReduction_55
+happyReduction_55  =  happyIn26
 		 ([]
 	)
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_55 = happySpecReduce_1  23# happyReduction_55
-happyReduction_55 happy_x_1
+happyReduce_56 = happySpecReduce_1  23# happyReduction_56
+happyReduction_56 happy_x_1
 	 =  case happyOut30 happy_x_1 of { happy_var_1 -> 
 	happyIn27
 		 (reverse happy_var_1
@@ -837,8 +847,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_56 = happySpecReduce_2  24# happyReduction_56
-happyReduction_56 happy_x_2
+happyReduce_57 = happySpecReduce_2  24# happyReduction_57
+happyReduction_57 happy_x_2
 	happy_x_1
 	 =  case happyOut10 happy_x_2 of { happy_var_2 -> 
 	happyIn28
@@ -847,8 +857,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_57 = happySpecReduce_1  25# happyReduction_57
-happyReduction_57 happy_x_1
+happyReduce_58 = happySpecReduce_1  25# happyReduction_58
+happyReduction_58 happy_x_1
 	 =  case happyOut31 happy_x_1 of { happy_var_1 -> 
 	happyIn29
 		 (reverse happy_var_1
@@ -856,8 +866,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_58 = happySpecReduce_1  26# happyReduction_58
-happyReduction_58 happy_x_1
+happyReduce_59 = happySpecReduce_1  26# happyReduction_59
+happyReduction_59 happy_x_1
 	 =  case happyOut25 happy_x_1 of { happy_var_1 -> 
 	happyIn30
 		 ([happy_var_1]
@@ -865,8 +875,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_59 = happySpecReduce_2  26# happyReduction_59
-happyReduction_59 happy_x_2
+happyReduce_60 = happySpecReduce_2  26# happyReduction_60
+happyReduction_60 happy_x_2
 	happy_x_1
 	 =  case happyOut30 happy_x_1 of { happy_var_1 -> 
 	case happyOut25 happy_x_2 of { happy_var_2 -> 
@@ -876,8 +886,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_60 = happySpecReduce_1  27# happyReduction_60
-happyReduction_60 happy_x_1
+happyReduce_61 = happySpecReduce_1  27# happyReduction_61
+happyReduction_61 happy_x_1
 	 =  case happyOut28 happy_x_1 of { happy_var_1 -> 
 	happyIn31
 		 ([happy_var_1]
@@ -885,8 +895,8 @@
 
 #if __GLASGOW_HASKELL__ >= 710
 #endif
-happyReduce_61 = happySpecReduce_2  27# happyReduction_61
-happyReduction_61 happy_x_2
+happyReduce_62 = happySpecReduce_2  27# happyReduction_62
+happyReduction_62 happy_x_2
 	happy_x_1
 	 =  case happyOut31 happy_x_1 of { happy_var_1 -> 
 	case happyOut28 happy_x_2 of { happy_var_2 -> 
@@ -895,7 +905,7 @@
 	)}}
 
 happyNewToken action sts stk [] =
-	happyDoAction 27# notHappyAtAll action sts stk []
+	happyDoAction 28# notHappyAtAll action sts stk []
 
 happyNewToken action sts stk (tk:tks) =
 	let cont i = happyDoAction i tk action sts stk tks in
@@ -926,10 +936,11 @@
 	(Consym,   (_,happy_dollar_dollar)) -> cont 24#;
 	(Qconsym,  (_,happy_dollar_dollar)) -> cont 25#;
 	(Reservedop, (_,happy_dollar_dollar)) -> cont 26#;
+	(Reservedid, (_,happy_dollar_dollar)) -> cont 27#;
 	_ -> happyError' ((tk:tks), [])
 	}
 
-happyError_ explist 27# tk tks = happyError' (tks, explist)
+happyError_ explist 28# tk tks = happyError' (tks, explist)
 happyError_ explist _ tk tks = happyError' ((tk:tks), explist)
 
 happyThen :: () => Maybe a -> (a -> Maybe b) -> Maybe b
diff --git a/pretty-show.cabal b/pretty-show.cabal
--- a/pretty-show.cabal
+++ b/pretty-show.cabal
@@ -1,5 +1,5 @@
 name:           pretty-show
-version:        1.9
+version:        1.9.1
 category:       Text
 
 synopsis:       Tools for working with derived `Show` instances and generic