initial stock.tcl