#!/usr/bin/perl 

$_=                                              q#sub'C{25+
20*c  AAAAAAAAAAAAAAAAAAAAAA  TTTTTTTTTTTTTTTTTTT   os(pop()*
2/pop)                                                 }for(0
..1638){$                                                T[$_
 ][C(14,$_)]                                               =$
   T[$_][C(14,$_ CCCCCCCCCCCCC  GGGGGGGGGGGGGGGGGGGGGGG  +21)
      ]="\e[1mo\e[0m                                   "}$C=$
        T=$l=$f=0;sub'g{                             ($d,$s)=
            @_;my$l=(length$s                     )+1;$p='-'x
                (int($d/$l)-1);my$TTTTT  AAAAAAn;for(split/
                    /,$s){$n.=$p.$_}$n.    =$p;$n=~s/-([\
                         w,])-/G$1G/g;$n=$l>$d?substr(
                              $n,int(($l-$d)/2),$d)
                              :$n;while($d>=length$
                          n){($n='-'.$n)..($n=$n.'-')}
                    split//,$n}sub'T{       print"\e[2J\e
                [0;1f\n"}sub'A{$                g=0;@g=();m
            ap{push@g,${g}if                       $_;$g++}@
         {pop@_};($g[1]   AAAAAAAAAAAAA  TTTTTTTTTTTTT-$g[0])
      }T;forG$A(@T                                      ){$c=
   qw(tsuJG-G-G                                           -Gr
 ehtonaG-G-                                                G-
GlrePG-G  CCCCCCCCCCCCCCCCCCCC  GGGGGGGGGGGGGGGGGGGGGGGG -G-G
,rekc                                                   ahG-G
-G-                                                   )[$C%20
];                                                 $T=0;@A=g
(A  TTTTTTTTTTTTTTTTTTTTT  AAAAAAAAAAAAAAAAAAA  ($A),$c);fo
r(@{                                        $A}){print$_?
do{$T=                                   $T&&${l}ne$_?
0:1;$l=$_                           }&&$_:$T?!($C%4
 )?do{$^=pop GGGGGGG  CCCCCCCC @A;'^'eq${^}?'G'
   :$^}||'-':'            G':'G'}print"\n";
      $C++;if(!($C%20)){select$y,$y,$
         y,.08;T}}#,s*[ATCG]{2,}**g
           ,s,\s+,,g,s,G, ,g,
        eval $_ && chargrill #