chomp,length()-11||s/s/us/,printf'%s\x0d
',split( )-1?(length()-16?yukaina:tanoshii).' nakamaga popopopo-n':s/un/n/|1&&$_.{n,n,g,sagi,b,ni,o,ion,y=>nagi,a,nbou,h,usu,e,kanku}->{(split//)[3]}for<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).