module NHC.PackedString where

import DPackedString(PackedString)

length primitive 1 :: PackedString -> Int