99{(%stdin)(r)file 20 string readline pop[346/sapporo 44/morioka 154/sendai
37/maebashi 271/utsunomiya 229/mito 94/shinjuku 337/yokohama 493/kofu 0/nagoya
-171/tsu 355/kanazawa 50/otsu 54/kobe 18/matsuyama 130/takamatsu 267/matsue
264/naha>>-704 3 3 index{mul add 1}forall pop{get exch[}stopped def pop
=}repeat
Note that non-ascii characters in the above source code will be escaped (such as \x9f).