p;main(i,s,c){for(;i=p?:gets(s,c=48);printf(p?"%c%d":"\n",62-p/i*2,abs(p-i)))p=index(s,++c),p+=p&&i/p;}