import qualified Data.Map.Strict as M import Data.Maybe (fromJust) table :: M.Map Char Char table = M.fromList $ zip "pfnovuaxqwufmbgrihcdejkolstyz" "orangecipherbqsuftlmdxynzvwjk" trans :: String -> String trans = map (fromJust . (`M.lookup` table)) main :: IO () main = putStrLn . trans =<< getLine