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" ")[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.