open String
let rec($)s?(p=read_line())_=s$print_endline(try let i=index s(Char.chr(Hashtbl.hash p mod 139+113))in sub s(i+2)(Char.code s.[i+1])with _->p);;"�naha�matsue�	takamatsu�	matsuyama�kobe�otsu�kanazawa�tsu�nagoya�kofu�yokohama�shinjukumito�
utsunomiya�maebashi�sendai�morioka�sapporo"$()