for(k=a=readline(i=n=0);k=a[i+=k==n];)putstr(n+=i?k<n?-1:k>n:+k)