Inferno's native 'array of array of someAdt' example.

gistfile1.c

ar = H2D(Array*, heaparray(&Tptr, nimports));
ai = (Array**)ar->data;

for(i2 = m->ldt; *i2 != nil; i2++){
	nimports = 0;
	for(i1 = *i2; i1->name != nil; i1++)
		nimports++;

	*ai = H2D(Array*, heaparray(Timport, nimports));
	li = (Loader_Import*)(*ai)->data;
	for(i1 = *i2; i1->name != nil; i1++){
		li->name = c2string(i1->name, strlen(i1->name));
		li->sig = i1->sig;
		li++;
	}
	ai++;
}