sub make_grep {
  my $pat = shift;
  sub { grep /$pat/o, @_ };
}