Update seq.tcl