package require oomk for {set i 0} {$i <1000} {incr i} { mkstorage db test.mk db destroy }