anim.tcl

#!/usr/bin/tclsh8.5

package require speedtable

speedtables Animinfo 1.1 {
    table animation_characters {
        varstring name indexed 1 unique 0
        varstring home
        varstring show indexed 1 unique 0
        varstring dad
        boolean alive default 1
        varstring gender default male
        int age
        int coolness
    }
}

package require Animinfo

animation_characters create t

t set shake name "Master Shake" show "Aqua Teen Hunger Force"
t set shake age 4 coolness -5

puts [t get shake]