1#!/bin/sh
2# the next line restarts using wish \
3exec tclsh8.4 "$0" "$@"
4
5package require -exact snack 2.2
6package require snacksphere
7
8snack::debug 0
9snack::sound s -debug 0
10
11set path "nist/lib"
12set fileList [glob $path/data/ex*.wav]
13
14foreach file $fileList {
15    puts "Playing: $file"
16    s config -file $file
17    s play -block 1
18}
19