global visited = %();

EnumerateNodes(FindObject(1));

sub EnumerateNodes(rootObject)
{
	for(o : GetObjectChildren(rootObject))
	{
		if (classof(o) == "Node")
		{
			PrintDCIs(o);
		}
		else if (classof(o) == "Subnet")
		{
			EnumerateNodes(o);
		}
	}
}

sub PrintDCIs(node)
{
	if (visited[node->id] != null)
		return;

	println("***** " . node->name . " *****");
	for(dci : FindAllDCIs(node))
	{
		println("   " . dci->description);
	}

	visited[node->id] = 1;
}