?Replace(Trim(Replace(Replace(Replace(Replace("~~~test~test~~test~~~test~~~~","~~","~"),"~~","~"),"~~","~"),"~"," "))," ","~")
test~test~test~test
?fncreplacedoubles("~~~test~test~~test~~~test~~~~")
test~test~test~test
Notice the two left most nested Replace functions do not replace "~~" with...