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
for i from 1 to num_intervals
phone$ = Get label of interval: 2, i
appendInfoLine: phone$
endfor