tcloo command-line parsing

oo::class create Commander
oo::define Commander {
  variable commands

  method foo {args} {
    puts "foo: $args"
  }

  method bar {args} {
    puts "bar: $args"
  }

  method unknown {args} {
    puts "Usage: app command \[options] args"
    puts "commands: foo, bar"
  }
}

[Commander create c] {*}$argv