import Data.Array.Unboxed
import Data.Array.IO
-import Data.Dynamic
+import Data.Typeable
import Data.Char
import System.IO
instance Show PackedString where
showsPrec p ps r = showsPrec p (unpackPS ps) r
-#include "Dynamic.h"
+#include "Typeable.h"
INSTANCE_TYPEABLE0(PackedString,packedStringTc,"PackedString")
-- -----------------------------------------------------------------------------