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);;"\xeb\x04naha\xcb\x06matsue\xd3\x09takamatsu\xf0\x09matsuyama\x9b\x04kobe\xf1\x04otsu\x8c\x08kanazawa\x88\x03tsu\xdd\x06nagoya\xb7\x04kofu\xb4\x08yokohama\xcc\x08shinjuku\x7f\x04mito\xc6 utsunomiya\xec\x08maebashi\xc5\x06sendai\xb9\x07morioka\x8f\x07sapporo"$()
Note that non-ascii characters in the above source code will be escaped (such as \x9f).