(define (irregex-grep irx lst)
  (filter-map (lambda (x)
                (irregex-search irx x))
              lst))