proc import {file} {
  global argv files
  source [lindex $argv 1]/$file
  lappend files $file
}
