#!/usr/bin/perl -w
use strict;

# use module DNA2protein to implement reading frames

use DNA2protein;

while ( my $DNA = <> ) {
	chomp($DNA);

	foreach my $offset ( 0 .. 2 ) {
		print DNA2protein( $DNA, $offset ), "\n";
		print DNA2protein( revcom($DNA), $offset ), "\n";
	}
}