for(1..1e4){$b=$c=-2;/$b/&&$c++while$b++<9;$c||print"$_\n"}