RNA (prob 2) in Racket