Optimize addZeros a little in DNA.hs