proc array_init {name args} {
  foreach {key value} $args {
    if {![$name exists $key]} {
      $name makeitem $key $value
    }
  }
}