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