if {![file exists $bsscfile]} {
        set fd [open $bsscfile w]
        puts $fd "0"
        close $fd
        }

set fd [open $bsscfile r]
set sctot [gets $fd]
for { set bss 0 } { $bss < $sctot } { incr bss } {
        set line [gets $fd]
        lappend bsscores [split $line]
        }
close $fd

