##
# 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"
}
##
##
# Example of use: @result = sieve(60);
sub sieve{
L:for(2..pop){for my $b(2..$_-1){next L if($_%$b<1)}push@_,$_}@_
}