module Main where

import Data.Char (chr, digitToInt, isDigit, isHexDigit)
import System.IO.Error (catchIOError, isEOFError)

import Encoding

main :: IO ()
main =
    catchIOError (getLine >>= putStrLn . zDecodeString >> main) $ \e ->
      if isEOFError e then return () else print e