[cvs-nhc98] Add a new primitive implementation of hPutStr that packs Str