/NAME/	{
	i = index($0, "NAME") + 5
	j = index(substr($0, i+1), " ")
	k = index(substr($0, i+1), ">")
	if (j) 
	  if (k) m = j < k ? j : k
	  else m = j
	else m = k == 0 ? length($0) - i : k
	name = substr($0, i, m)
	i = gsub("\"", "", name)
	line = line "," name
	}
END	{ print line > "names" }