#!/usr/bin/ocamlrun /usr/bin/ocaml
#use "topfind";;
#require "dbm";;
let db = Dbm.opendbm Sys.argv.(1) [ Dbm.Dbm_rdonly ] 0 in
Dbm.iter (Printf.printf "%s: %s\n") db;
Dbm.close db