objectdef oA
{

	method DoStuff(string CallbackMethod, string Param)
	{
		execute i:Set[${CallbackMethod}[${Param}]]
		echo ${i}
	}

}

objectdef oB
{
	
	member Priority(string Param)
	{
		return 2
	}
	
}

function main()
{
	declarevariable a oA script
	declarevariable b oB script
	declarevariable i int script
	echo "--"
	a:DoStuff[b.Work,Test]
	echo "--"
}