# make a Janus-database using the transcriptions in ../data/transcripts

[DBase db] open db.dat db.idx -mode rwc
set fp [open ../data/transcripts r]
while { [gets $fp line] != -1 } {
  set utt [lindex $line 0]
  db add $utt [list [concat text [lrange $line 1 end]] [list utt $utt]]
}
db close
exit