(require 'lsdb)
(require 'rdfdb)

(defun add-entry-triples (database identity name values)
  (while values
    (rdfdb-add-triple database
		      (rdfdb-make-triple
		       identity
			(concat rdfdb-namespace-uri "/entry#" name)
		       (rdfdb-get-literal-resource database (car values))))
    (setq values (cdr values))))

(lsdb-maybe-load-hash-tables)
(setq database (rdfdb-make-database))

(lsdb-maphash
 (lambda (key value)
   (let ((identity (rdfdb-get-internal-resource database))
         values)
     (add-entry-triples database identity "Name" (list key))
     (while value
       (add-entry-triples
	database
	identity
	(capitalize (symbol-name (car (car value))))
	(if (listp (cdr (car value)))
	   (cdr (car value))
	 (list (cdr (car value)))))
       (setq value (cdr value)))))
 lsdb-hash-table)

(rdfdb-save-database database ".rdfdb")