replace :: [String] -> String
replace [] = []
replace s = let rep (x:xs) = if x == 'u' then ('x':(rep xs)) else (x:(rep xs)) in map rep s