do:n=0:for i=0to 450n=n+!peek(0)-42next:?0^n+n/5loop