Select Code to Download

sub f{
#23456789 123456789 123456789 123456789 123456789 123456789 
...
}
f(pop);
++$i and $1 and print $i while m[(.)]g;

sub f{
$x="\xff"x$_[0];for(2..$_[0]){$n=$_;vec($x,$n,1)=0 while($n+=$_)<$_[0]
+;}
}
f( $ARGV[0]);
vec$x,$_,1 and print $_ for 1..$ARGV[0];