package require emu::autobuild 
proc AutoBuildInit {template} {} 
proc AutoBuild {template h} { 

# Wortsegmente
set wordseg [$h segments word]
# Phonetische Segmente
set phonseg [$h segments phonetic]
# Prosodische Segmente
set prosseg [$h segments prosodic]
# Der Wortseg wird Eltern von beiden Segmenten
$h seginfo $wordseg children phonetic $phonseg
# Der erste phonetische Seg. wird Eltern vom prosodischen Seg
$h seginfo [lindex $phonseg 0] children prosodic $prosseg
}