Escape Rhope Name[name:escaped]
{
	escaped <- [[[[[[[[[[[name]Replace["_","__"]
		]Replace["@","_AT_"]
		]Replace[" ","_SP_"]
		]Replace[":","_CN_"]
		]Replace["?","_QN_"]
		]Replace["+","_PL_"]
		]Replace["-","_MN_"]
		]Replace["*","_TM_"]
		]Replace["/","_DV_"]
		]Replace["<","_LT_"]
		]Replace["<","_GT_"]
}