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