sub seqstore {
		my ($flankseq, $mode, @rcd) = @_;
		if ($mode eq "Pos") {
			push (@$flankseq, $rcd[0]);
		} elsif ($mode eq "Freq") {
			push (@$flankseq, $rcd[0]) for (1..$rcd[1]);
		}
		return;
	}