#23456789_123456789_123456789_123456789_12345
perl -e'print qw(G T A C)[rand(4)]for 1..pop' 1000