(use sql-de-lite)

(define +db-file+ (car (command-line-arguments)))
(if (not (file-exists? +db-file+))
  (begin
	(display "DB supplied does not exist!")
	(newline)
	(exit 1)))

(define *db* (open-database +db-file+))

(let ((do-sth (prepare *db* "SELECT * FROM domains;")))
  (let loop ([s (step do-sth)])
	(if (not (equal? s 'done))
	  (begin
		(display (column-data do-sth 1))
		(newline)
		(loop (step do-sth))))))

(close-database *db*)