do:if!k n=peek(0)
k=sig(n-i)+0^n:i=i+k:?chr$(44-k+2*!k);loop