[begin] key dup 10 > [if] emit [then] 0