#define X(w,y,z)if#y=copy(s,w)then s:=#z; var s:string;begin repeat readln(s);X(7,do,sapporo)X(4,te,morioka)X(5,gi,sendai)X(4,ma,maebashi)X(6,gi,utsunomiya)X(6,ki,mito)X(4,yo,shinjuku)X(5,gawa,yokohama)X(7,shi,kofu)X(2,ichi,nagoya)X(4,,tsu)X(7,wa,kanazawa)X(4,ga,otsu)X(4,go,kobe)X(5,e,matsuyama)X(5,wa,takamatsu)X(7,e,matsue)X(6,wa,naha);writeln(s)until 1=0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).