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