: a
begin
key dup 1+ while
dup 10 <> if emit then
repeat
;
a