Sequence sample



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