#!/usr/bin/perl -w 

open(IF,"dd");
while($a=<IF>){
chomp($a);
($n,$seq) = split(/ /,$a);
@b = split(//,$seq);
for($i=0;$i<length($seq);$i++){
if($b[$i] eq 'A'){$counta[$i]+=$n;}
elsif($b[$i] eq 'C'){$countc[$i]+=$n;}
elsif($b[$i] eq 'G'){$countt[$i]+=$n;}
elsif($b[$i] eq 'T'){$countg[$i]+=$n;}
}
}

$bn = $counta[0]+$countc[0]+$countt[0]+$countg[0];
print "\n";
print "A\n";
for($i=0;$i<length($seq);$i++){$f = int(100*($counta[$i] / $bn)) ; print "$f ";}
print "\n";
print "T\n";
for($i=0;$i<length($seq);$i++){$f = int(100*($countt[$i] / $bn)) ; print "$f ";}

print "\n";
print "C\n";
for($i=0;$i<length($seq);$i++){$f = int(100*($countc[$i] / $bn)) ; print "$f ";}

print "\n";
print "G\n";
for($i=0;$i<length($seq);$i++){$f = int(100*($countg[$i] / $bn)) ; print "$f ";}

print "\n";