member(string) RemoveNumerals(string SkillName)
	{
		echo "RN: ${SkillName}"
		variable string NumeralList[5]
		variable int i
		variable int j
		
		NumeralList[1]:Set["I"]
		NumeralList[2]:Set["II"]
		NumeralList[3]:Set["III"]
		NumeralList[4]:Set["IV"]
		NumeralList[5]:Set["V"]
		
		for (i:Set[1] ; ${i} <= 5 ; i:Inc)
		{
			echo "RN: ${SkillName}"
			echo "RN:3 ${SkillName.Right[3]}"
			if ${SkillName.Right[3].Equal[${NumeralList[${i}]}]}
			{
				echo "RN returning: ${SkillName.Left[${Math.Calc[${SkillName.Length} - ${NumeralList[${i}].Length}]}]}"
				return ${SkillName.Left[${Math.Calc[${SkillName.Length} - ${NumeralList[${i}].Length}]}]}
			}
		}
			
		for (i:Set[1] ; ${i} <= 5 ; i:Inc)
		{
			echo "RN: ${SkillName}"
			echo "RN:2 ${SkillName.Right[2]}"
			if ${SkillName.Right[2].Equal[${NumeralList[${i}]}]}
			{
				echo "RN returning: ${SkillName.Left[${Math.Calc[${SkillName.Length} - ${NumeralList[${i}].Length}]}]}"
				return ${SkillName.Left[${Math.Calc[${SkillName.Length} - ${NumeralList[${i}].Length}]}]}
			}
		}
		
		for (i:Set[1] ; ${i} <= 5 ; i:Inc)
		{
			echo "RN: ${SkillName}"
			echo "RN:1 ${SkillName.Right[1]}"
			if ${SkillName.Right[1].Equal[${NumeralList[${i}]}]}
			{
				echo "RN returning: ${SkillName.Left[${Math.Calc[${SkillName.Length} - ${NumeralList[${i}].Length}]}]}"
				return ${SkillName.Left[${Math.Calc[${SkillName.Length} - ${NumeralList[${i}].Length}]}]}
			}
		}

		echo "RN returning sent skillname"
		return ${SkillName}
	}