#!/usr/bin/perl -w
# Complementary
#    VERSION: 1 (11 June 2004)
#    PURPOSE:  Determine whether two given nucleotides are complementary
#    INPUT FILES: None
#    OUTPUT FILES: None

############## LIBRARIES AND PRAGMAS ################

  use strict;

#################### CONSTANTS #######################

  my $LF = "\n";
  my $tab = "\t";

#################### VARIABLES ######################

  my [give a variable the value of a nucleotide "G" "A" "T" or "C"] ;
  my [give another variable the value of a nucleotide] ;

###################### FILES ########################

################### MAIN PROGRAM ####################

  if ( [fill in] eq [fill in] and [fill in] eq [fill in]) {
     print [fill in] ;
  } elsif ( [fill in] eq [fill in] and [fill in] eq [fill in]) {
     print [fill in] ;
  } elsif ( [fill in] eq [fill in] and [fill in] eq [fill in]) {
     print [fill in] ;
  } elsif ( [fill in] eq [fill in] and [fill in] eq [fill in]) {
     print [fill in] ;
  } else {
     print [fill in] ;

; (We'll see much more elegant ways of doing this sort of thing later)

#################### SUBROUTINES ####################

