source zoom-1.2.tcl

object Connection conn "z3950.loc.gov" 7090
conn.setOption "database" "Voyager"
conn.setOption "preferredRecordSyntax" "MARC"

object Query query1 0 "7 0253333490"
set rs [conn.search [query1]]
set rec [$rs.getRecord 0]
puts [$rec.getRaw]