initial blackjack.tcl