[more sensible Show for sort
John Meacham <john@repetae.net>**20051011080007] hunk ./E/E.hs 52
-    deriving(Data,Eq, Ord, Typeable, Show)
+    deriving(Data,Eq, Ord, Typeable)
hunk ./E/E.hs 54
+
+instance Show ESort where
+    showsPrec _ EStar = showString "*"
+    showsPrec _ EHash = showString "#"
+    showsPrec _ EBox = showString "BOX"