#!/usr/bin/perl

# JADNA emerging from the gene pool...



        $_=q=GCGCAT=;my$AT=m++;           my$CG=$AT-$AT+$AT;my$TG=$CG
   +$AT-    $CG;my        $CAGC=$AT-   $CG+$CG+         $AT-        $CG
 +$AT-   $CG-$CG;my$CAGTC=q;;;my%CTACG=                             ('C',
$AT+    $CG+$TG-$AT-$CG                                   +$CG-$TG,'A',$CG
-$AT    +$CG-$AT-$TG-$CG+$AT-$CG+$TG+$CG,'T',$AT+                       $TG-
$CG+   $TG+              $AT-$CG       +$AT-     $TG-$CG+              $AT
  +$CG,  'G',$CG-$AT-$TG-$CG+$AT+$TG+$TG+$CG-         $AT+             $CG);
  my   $GCA=                                          $CTACG        {'T'}**
 $CTACG{'G'}+$CG;my$CTG     =$GCA*$GCA;my      $GGC=$GCA            /($AT
+$AT);open(CGGCTA,$0);while(my        $CTGCAC=<CGGCTA>)       {if($CTGCAC
=~m+(q()(q))+){$CAGC=$AT+$AT-$CG}      if($CAGC){my($CGTC)=($CTGCAC
=~m+^\s*([ACGT])+);            if($CGTC)           {$CAGTC   .=$CGTC}}
}close         (CGGCTA);        my                            @CGC=($GCA,
($CTG-        ($GCA+$GCA+$GGC+$TG)),                                ($CTG+
 $GCA+$GCA-$CTACG{'T'}),                                             ($CTG
+$GCA+$GGC),                                   ($CTG+$GCA+$GGC+       $CG
   ),($GCA*     $CTACG{'T'})+$CTACG{'G'},($GCA*$CTACG{'T'}*    $CTACG{'G'})
  +$GGC,$GCA+$CTG,$CTG+               $CG+$GCA,$GGC+             $CTG-$TG
 ,$CG+$CTG,$CTG+$GGC        +$GCA-$AT,$CTG-$GCA-$GCA,$CTG+$GCA-$TG-$CG,
 $CTACG{'T'}*$CTACG{'T'}*($TG**$CG)*($GCA-                     $CTACG{'G'}
      ), $CTG-                       $CTACG{'T'},            $CTG-$CG,$CTG
       +$GCA-$CTACG{'T'});                                          my@GC=
        split    /T+/,$CAGTC;foreach my$TTC(@GC){my$                  CGTC=
         $AT  -$CG             +$AT-$CG-                  $AT-       $CG+
        $AT+$CG;          my$CTGCAC=$AT-$CG           +$CG-$AT+$AT-$CG;
         while             (my   $CTCCGA              =substr(
           $TTC,       $CTGCAC,$AT))  {$CGTC+=      $CTACG
            {$CTCCGA}  *(                 ($CG+    $TG+      
              $CG- $AT+$CG)                   ** $CTGCAC)
                 ;++                              $CTGCAC
                   ;}                            print 
                     chr(                       $CGC[
                         $CGTC  ]   )   ;      } 
                         my             $CTCCGA 
                          =             qq;
                          A --        -- T
                           T --      -- A
                            C ---   -- G
                            T --- --- A
                            G ------- C
                             T ----- A
                              A --- T
                               C - G
                                 T
                               T - A
                             C ----- G
                            C ------- G
                            T ------- A
                            G ------- C
                             C ----- G 
                              T --- A
                               A - T
                                 G
                               T - A
                             T ----- A 
                            C ------- G
                            G ------- C
                            T ------- A
                             T ----- A 
                              G --- C
                               G - C
                                 T
                               C - G
                             C ----- G
                            T ------- A
                            A ------- T
                            A ------- T
                             C ----- G
                              T --- A
                               C - G
                                 A
                               C - G
                             T ----- A
                            G ------- C
                            A ------- T
                            C ------- G
                             T ----- A
                              G --- C
                               C - G
                                 T
                               T - A
                             A ----- T
                            C ------- G
                            C ------- G
                            T ------- A
                             C ----- G
                              A --- T
                               C - G
                                 T
                               G - C
                             A ----- T
                            C ------- G
                            T ------- A
                            C ------- G
                             C ----- G
                              C --- G
                               T - A
                                 G
                               C - G
                             T ----- A
                            G ------- C
                            C ------- G
                            C ------- G
                             T ----- A
                              A --- T
                               G - C
                                 C
                               T - A
                             T ----- A
                            C ------- G
                            G ------- C
                            C ------- G
                             T ----- A
                              G --- C
                               G - C
                                 C
                               T - A
                             C ----- G
                            A ------- T
                            C ------- G
                            T ------- A
                             G ----- C 
                              A --- T
                               C - G  
                                 T
                               A - T
                             T ----- A
                            A ------- T
                           ;           ;