source ../../oo.tcl @import core.* #- creating new sequence with a starting value s = [[Sequence new] value: 12012] #- incrementing sequence 100 times for {set i 0} {$i < 100} {incr i} { $s next [$s value] stderr } #- releasing instance $s release