#!/usr/local/bin/perl

use strict;

$\="\n";
$,=" ";

my @g = qw(g c a t n);
my $gc = 0.4;

print (2^5);

exit;
while(1) {
my $r = rand();
my @c = ($gc/2,$gc,(1+$gc)/2,0.99,1);
for my $i (0..@c-1) {
  next unless $r < $c[$i];
  print $g[$i];
  last;
}
}