use strict;
use warnings;

use Seq;
use DNA;

my $seq = DNA->new();

my $seq2 = Seq->new();

$seq->set_seq("ATGCCCTAA");

print $seq->reverse_complement()."\n";