module Encoding.Base10 ( enc10 , dec10 ) where import qualified Data.ByteString.Char8 as C import Data.Char (ord, chr, digitToInt, intToDigit) dec10 :: String -> String dec10 = map (chr . read) . words enc10 :: String -> String enc10 = unwords . map (show . ord) -- enc10 str = C.unpack $ C.pack $ Prelude.foldl (\acc char -> acc ++ show (ord char)) "" str