DNA (prob 1) in Racket