(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)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).