3 if {[file exists libload.tcl]} {
6 source [file join [file dirname [info script]] libload.tcl]
10 puts "please observe memory consumption per top (Program break after reach 2000)"
14 set c$i [mysqlconnect -u root -db uni]
15 mysqlsel [set c$i] {select * from Student}
16 while {[set row [mysqlnext [set c$i]]]!=""} {}