do:c=peek(0):if c=61n=n-1:?n
n=n+!c^.5^2-99loop