substExp :: ([Char],[Char]) -> Exp -> Exp