Integer Stack

# 
# Create a stack with per-object methods
#
# s4 is a stack of integer

Stack s4
s4 method push {value} {
  if {![string is integer $value]} {
    error "value $value is not an integer"
  }   next
}