p=$0{for(i=$0="d sapporo ik kanazawa ne matsue mm maebashi eh matsuyama hy kobe ic nagoya ie tsu e morioka in naha kan yokohama aw takamatsu agi sendai toc utsunomiya ^i mito oky shinjuku hig otsu ana kofu . "p;p!~$++i;)}$0=$++i
Note that non-ascii characters in the above source code will be escaped (such as \x9f).