+# Code from doc...
+# foreach my $rec ($rs1->records()) {
+# print STDERR "REC:$rec\n";
+# unless ($rec->errCode) {
+# printf ("Pos:%d, Base: %s, sysno: %d, score %d format: %s\n%s\n\n",
+# $rec->position,
+# $rec->base,
+# $rec->sysno,
+# $rec->score,
+# $rec->format,
+# $rec->buf
+# );
+# }
+# }
+