Add prime factors in racket