substAlt :: ([Char],[Char]) -> Alt -> Alt