toBS :: String -> BS.ByteString
toBS = BS.pack . map (fromIntegral . fromEnum)
fromBS :: BS.ByteString -> String
fromBS = map (toEnum . fromIntegral) . BS.unpack
toBS :: String -> BS.ByteString
toBS = BS.pack . map (fromIntegral . fromEnum)
fromBS :: BS.ByteString -> String
fromBS = map (toEnum . fromIntegral) . BS.unpack