#!/usr/bin/perl

use strict;
use lib 'D:/lei/academia/ta/mie453/tutorial/tut7';
use MySequence;

my $sequence = 'gattccggatttccaaagggttcccaatttggg';
my $complement = MySequence::reversec($sequence);

print "original = $sequence\n";
print "complement = $complement\n";