m@main=do[a,b]<-words<$>getLine;print$[r|r<-[2..],read a==foldl(\n c->read[c]+n*r)0b]!!0;m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page