do k=peek(0)
if k<11?chr$(n/i):i=-1:n=-10
n=n+k:i=i+1loop