public override object Execute(Reasoner ts, Unifier un, ITerm[] args)
{
string agName = ((IStringTerm)args[0]).GetString();
IRuntimeServices services = ts.GetUserAgArch().GetRuntimeServices();
services.Clone(ts.GetAgent(), ts.GetUserAgArch().GetAgArchClassesChain(), agName);
return(true);
}