[clean up printing of core some
John Meacham <john@repetae.net>**20060420064709] hunk ./E/Show.hs 38
-showId i = (text $ 'v':show i)
+showId i = (text $ 'x':show i)
hunk ./E/Show.hs 206
-            let mbind | isUsed || dump FD.EVerbose = unparse db <+> text "<-"
+            let mbind | (isUsed && isNothing (eCaseDefault ec)) || dump FD.EVerbose = unparse db <+> text "<-"