# unique.tcl --
#
# This library uses a last generation, military-grade algorithm to 
# generate unique identifiers

package provide unique 1.0
namespace eval unique {
    variable counter 0
}


proc unique::newId {} {
    variable counter
    return id[incr ::unique::counter]
}


