Select Code to Download

$ perl -E 'sub f{say $_[0] unless $_[0] % 10000;exit if $_[0] > 30000;
+f($_[0]+1)};f(1)'
10000
...
10000
20000
30000

$ perl -wE 'sub f{say $_[0] unless $_[0] % 33;exit if $_[0] >= 99;f($_
+[0]+1)};f(1)'
33
...
66
99
Deep recursion on subroutine "main::f" at -e line 1.