character::s*12,a(12)*8=["tanoshii","yukaina","naraion","nagi","nbou","sagi","ni","usu","kanku","usu","n",""]
1 read*,s;do i=1,12;k=i<3;if(s(2:4)=="ahouteayohayadarigonbtadtteochonnyas"(i*3-2:i*3))print'(3a)',&
s(:ichar(""(i:))-8),trim(a(i))," nakamaga popopopo-n"(:k*20);enddo;goto1;end