thing Things

package require Tcl 8.6
lappend auto_path .
package require thing
thing::thing Account
Account variable Balance 0
Account incr Balance 20
Account get Balance
Account proc show {{Chan stdout}} {
    puts $Chan "Balance of account is [get Balance]"
}
Account show
thing::destroy Account