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.