puts "tcl version: [info patchlevel]"
catch {source oomk.kit}
puts "oomk version: [package require oomk]"
mkstorage db test.db
db layout persons {name age:I}
[db view persons] as pv
$pv dump
$pv append name Bill age 40
$pv append name Steve age 41
$pv dump
[$pv select name Bill] as sel
$sel dump