bch$ tclsh8.5 % interp limit {} time -seconds [expr {[clock seconds] + 15}] % while 1 {set a 9} ;# 15s elapse, then... time limit exceeded bch$