DouKaku?

import System.Environment
replace s (f,t) = map (\x->if x == f then t else x) s
tr s fro = last . scanl replace s . zip fro
main = do 
  fro:to:s:xs <- getArgs
  putStrLn $ tr s fro to