sub check_gene($);
sub check_gene_seq($);
sub extractseq($);