c=1:do a=peek(0)-48:input""b:if(c=a)+(c=b)c=a+b-c
?c-0^a loop