var i:byte;s:string;begin repeat readln(s);for i:=1to 12do if("ahouteayohayadarigonbtadtteochonnyas")[i*3-2..i*3]=s[2..4]then writeln(s:ord((#0#0"\x04\x06\x07\x08\x08\x09 \x0c \x0c")[i]),trim(copy("tanoshiiyukaina naraion nagi nbou sagi ni usu kanku usu n",i*8-7,8))," nakamaga popopopo-n":20*ord(i<3))until 0>0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).