Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/LowB/PrimUnpackPS.hs
module NHC.PackedString where import DPackedString(PackedString) unpackPS primitive 1 :: PackedString -> [Char]