do c=peek(0):?chr$(c);:k=mod(3*k+c+1,7):if!k?
loop