character::c*12,a*96="tanoshiiyukaina naraion nagi nbou sagi ni usu kanku usu n"
do1;read*,c;do1 i=1,12;k=i<3
1 if(c(2:4)=="ahouteayohayadarigonbtadtteochonnyas"(i*3-2:i*3))print'(3a)',&
c(:ichar("\x08\x08\x0c\x0e\x0f\x10\x10\x11\x12\x14\x12\x14"(i:))-8),trim(a(i*8-7:i*8))," nakamaga popopopo-n"(:k*20);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).