Common Lisp solution to DNA.