[add atom instance for ShowS and more efficient show instance for atom and packedstring
John Meacham <john@repetae.net>**20051025153401] hunk ./Atom.hs 36
-    show = toString
+    showsPrec _ (Atom _ ps) = showsPS ps
hunk ./Atom.hs 55
+instance FromAtom (String -> String) where
+    fromAtom x = showsPS (fromAtom x)
hunk ./PackedString.hs 28
+        showsPS,
hunk ./PackedString.hs 166
+    f ch r = C# ch : r
+
+showsPS :: PackedString -> String -> String
+showsPS  (PS (UArray _ (I# e) ba)) xs = unpackFoldrUtf8# (ba) (e +# 1#) f xs where