use IO::File;

my $fh = IO::File->new($filename, "r")
  or die "unable to open $filename: $!";
 
for my $line ( $fh->getlines() ) {
  chomp $line;
  print "[$line]\n";
}

##</code><code>##


sub load_primers {
  return _loadIndex( @_);
}

sub load_parents {
  return _loadIndex( @_);
}