(loop(set'x(read-line))(write-line(or(cadr(member-if(lambda(y)(search y x))(asdf::split"d sapporo eh matsuyama hy kobe iw morioka in naha mm maebashi ic nagoya ie tsu is kanazawa ne matsue toc utsunomiya bar mito oky shinjuku kan yokohama nas kofu hig otsu aw takamatsu yag sendai")))x)))