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