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