select TextGrid S6E01
numOfIntervals = Get number of intervals... 1

for iInterval to numOfIntervals
	select TextGrid S6E01
	labelOfInterval$ = Get label of interval... 1 iInterval
	if length(labelOfInterval$) > 0
		start = Get starting point... 1 iInterval
		end = Get end point... 1 iInterval
		select LongSound S6E01
		Extract part... start end No
		Rename... 'labelOfInterval$'
	endif
endfor