(require 'stdlib)
(require 'rep.io.db.gdbm)

(setq
 dbfile "gdbm.db"
 testkey "testkey")
(setq db (gdbm-open dbfile 'write))

(puts (gdbmp db))

(gdbm-store db testkey "testvalue")
(printf "fetch: %s\n" (gdbm-fetch db testkey))
(puts (gdbm-delete db testkey))
(printf "fetch: %s\n" (gdbm-fetch db testkey))

(for i 1 100
     (gdbm-store db (number->string i) "value"))

(gdbm-walk
 (lambda (key)
   (printf "%s " key))
 db)
(puts "")

(gdbm-close db)

(delete-file dbfile)