1package require sqlite
2
3if {$argc!=2} {
4  puts stderr "Usage: %s DATABASE SQL-STATEMENT"
5  exit 1
6}
7sqlite db [lindex $argv 0]
8db eval [lindex $argv 1] x {
9  foreach v $x(*) {
10    puts "$v = $x($v)"
11  }
12  puts ""
13}
14db close
15