Add finding factors in racket