(define (prime? n) 
  (not (irregex-match? (irregex "^.?$|^(..+?)\\1+$") 
                       (string-unfold (lambda (x) (>= x n))
                                      (lambda (x) #\1)
                                      (lambda (x) (add1 x))
                                      0))))