# Example of use: sieve(60); sub sieve { my$m=pop;@_=(2..$m);for my $c(@_){my%b=map{$_,1}grep{($_%$c)==0}($c+1..$m);@_=grep{!$b{$_}}@_}die"@_\n" }