do:k=0:for i=0to 450a=b:b=c:c=peek(0):k=k+(b-a-c^.2=8)next:?k/2loop