part = UF_PART_ask_nth_part( curr_part );
UF_PART_ask_part_name( part, part_fspec );
count_1 = 0;
type = UF_feature_type;
feature = NULL_TAG;
/* Start the cycling process by passing in a NULL_TAG. */
UF_OBJ_cycle_objs_in_part( part, type, [$feature )]
/* Keep cycling until there are no more features to cycle. */
while ( feature != NULL_TAG )
{
count_1++;
UF_OBJ_ask_name( feature, feature_fspec );
UF_OBJ_cycle_objs_in_part( part, type, [$feature )]
}