sound$ = Read from file: "sound/dhl_part.wav"
textgrid$ = Read from file: "sound/dhl_part.TextGrid"
selectObject: "Sound dhl_part"
totalDuration = Get total duration
writeInfoLine: "Total duration: ", fixed$(totalDuration, 2), " seconds"
selectObject: "TextGrid dhl_part"
numberOfTiers = Get number of tiers
appendInfoLine: "Number of tiers is: ", numberOfTiers
num_intervals = Get number of intervals... 2
appendInfoLine: "Number of intervals on Tier 2 is: ", num_intervals
appendInfoLine: "phone",tab$,"phone_duration"
for i from 1 to num_intervals
phone$ = Get label of interval: 2, i
if phone$ == "ae" or phone$ == "ei"
... or phone$ == "eh" or phone$ == "iy"
startTime = Get start point: 2, i
endTime = Get end point: 2, i
phone_duration = (endTime - startTime)*1000
appendInfoLine: phone$,tab$,fixed$(phone_duration,2)
endif
endfor