m@main=do[a,b]<-words<$>getLine;print$[r|r<-[2..],read a==foldl(\n c->read[c]+n*r)0b]!!0;m