[begin] key dup 10 > [if] emit [then] key? 0= [until]