string_to_buffer :: String -> IO Buffer
string_to_buffer  = return . S.pack . map (toEnum . fromEnum)
string_to_buffer :: String -> IO Buffer
string_to_buffer  = return . S.pack . map (toEnum . fromEnum)
string_to_buffer  = return . S.pack . map (toEnum . fromEnum)