with Zoom.Connections; use Zoom.Connections;
with Zoom.Records;     use Zoom.Records;
with Zoom.Result_Sets; use Zoom.Result_Sets;
with Zoom.Queries;     use Zoom.Queries;

procedure Canonical is
   Conn : Connection   := New_Connection ("z3950.loc.gov", 7090);
   Q    : Prefix_Query := Create ("@attr 1=7 0253333490");
   Rs   : Result_Set;
begin
   Set_Option (Conn, "databaseName", "Voyager");
   Rs := Search (Conn, Q);
   Render (Get_Record (Rs, 0));
end Canonical;