(setq Str1 "12345678")
(setq Str1 (pack Str1 "9!"))
(println Str1)