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