package Operator;
use v5.20;
use List::Util qw{any none};
use Exporter 'import';
our @EXPORT_OK = 'in';


sub in(+)
{
  my $list = shift;
  return sub { any { $_ eq $_[0] } @$list };
}
1;