form Get tier number
     integer Tier_number_for_phones 3
     integer Tier_number_for_words 1
endform 

tier = tier_number_for_phones
wordtier = tier_number_for_words

number = Get number of intervals: tier


writeInfo: ""

for i from 1 to number 

   name$ = Get label of interval: tier, i

   if name$ = "@" and i < number 

        start = Get start point: tier, i
        end = Get end point: tier, i
        wordlabel = Get interval at time: wordtier, start
        wordend = Get end point: wordtier, wordlabel
        
        
        nextname$ = Get label of interval: tier, i+1
 
	if nextname$ = "n"  &  wordend != end

            duration = end - start 
 
           appendInfoLine: name$, " ", duration

        endif
   endif
endfor