# Works with Label.man and Getlabel.praat
# Select the active tier

form Number of selected Tier
integer Tier
endform
tier$ = "'tier'"

tier$ > tiernumber.txt

endeditor
textgrid$ = selected$("TextGrid")
select TextGrid 'textgrid$'
numTiers = Get number of tiers
editor TextGrid 'textgrid$'
Add interval tier... numTiers+1 slet
Remove entire tier

for q from 1 to tier-1
   Select next tier
endfor