[pretty print grin variables a bit better
John Meacham <john@repetae.net>**20070301140334] hunk ./Grin/Grin.hs 283
-        | TyPtr _ <- t = char 'p' <> tshow i
+        | TyPtr t <- t = char 'p' <> shows (Var (V i) t)
hunk ./Grin/Grin.hs 285
+        | t == tCharzh = char 'c' <> tshow i
+        | t == tIntzh  = char 'i' <> tshow i