module Encoding.Base10
  ( enc10
  , dec10
  ) where

import qualified Data.ByteString.Char8 as C
import Data.Char (ord, chr, digitToInt, intToDigit)
import Text.XML.HXT.DOM.Util (hexStringToInt)

dec10 :: String -> String
dec10 = show . hexStringToInt 

enc10 :: String -> String
enc10 str = C.unpack $ C.pack $ Prelude.foldl (\acc char -> acc ++ show (ord char)) "" str