*-- Function EXTREPL 
*-- Extended REPLACE
* Guido Milanese 2005
* guido.milanese@unicatt.it
* The function fails if the two strings par1 and par2 are subsets

            define("extrepl(pass,par1,par2)")   :(extrepl_end)
extrepl	
extrepl_bg	((Par1 ? Par2) (Terminal = Par1 " included in " Par2)) :s(freturn)
				((Par2 ? Par1) (Terminal = Par2 " included in " Par1)) :s(freturn)
extrepl_lp	Pass ? Par1 = Par2 :s(extrepl_lp)

extrepl_rt   extrepl   =  pass                :(return)
extrepl_end