(let ((conn (dbi:connect :sqlite3 :database-name "/tmp/db.sqlite")))
  (dbi:do-sql conn "create table company (id int, name varchar(20))")
  (dbi:do-sql conn "insert into company (id, name) values (1, 'acme')")
  (dbi:do-sql conn "insert into company (id, name) values (2, 'philips')"))