(module hello_world
        (include "bzoom.sch")
        (include "bzoom.scm")
        (main main))

(define main (lambda (args)
               (let ((conn
                      (zoom:connection_new "z3950.loc.gov:7090/Voyager" 0)))
                 (zoom:connection_option_set 
                  conn "preferredRecordSyntax" "USMARC")
                 (let* ((r (zoom:connection_search_pqf 
                            conn "@attr 1=7 0253333490"))
                        (rec (zoom:record_get 
                              (zoom:resultset_record r 0)
                              "render")))
                   (if (pair? rec)
                       (display (car rec)))
                   0))) )