proc log {string} {
	puts $string
}

proc do {args} {
	log $args
	return [eval $args]
}

proc dop {args} {
	log $args
	puts "===> [eval $args]"
}

proc test001 {} {
	puts "*=- test001 -=*"
	db appinit /var/tmp/1
	set dbs [db open /var/tmp/001.db hash ct 0644]
	db put $dbs "first" "The First Record"
	db put $dbs "second" "The Second Record"
	db close $dbs
	db appexit
}

load libneo80.so.1.0
test001
