Shave one more char, but dies.

#23456789_123456789_123456789_123456789_1
perl -e"die map{(G,T,A,C)[rand 4]}1..pop" 1000
[download]

$|=$_='1g2i1u1l2i4e2n0k',map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g