decEnigma :: String -> [(Char, Char)] -> String
decEnigma (y:ys) ((a,b):xs) = (y == a) = b : teste ys a b

teste :: String -> Char -> Char -> String
teste [] ch ch1 = ""
teste (x:xs) ch ch1 = (x == ch) = ch1 : teste xs ch ch1