while(0<1){val p=" nakamaga popopopo-n";val l=readLine\x0d
println(Seq(l+"kanku",l+"nagi",l,0,0,"sayonaraion",0,l+"nbou",l+"n",l+"sagi","yukaina"+p,0,0,0,0,l+"usu",6,"itadakimausu",8,l+"ni",0,"tanoshii"+p)(l(0)%l(5)%22))}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).