: l
1 begin
key dup 10 > if
emit
endif
key? 1+ until
;
l