A Global Singleton is a class of which only one instance exists within a program.

Any attempt to use non-static members of the class involves performing operations on this one instance.




Object Class new: Sequence(channel)
Sequence method: initialize(initialValue) 
   Channel newSize(1) := channel
   @channel send(initialValue) drop ;
 
Sequence method: nextValue  @channel receive dup 1 + @channel send drop ;