#!perl -p
for$;qw(un/n ra=ion d.*\Ksu|go=usu ^t=nbou wa=n nw=i ig=sagi ha=nagi tt=kanku ^m.*/tanoshiiA ^su.*/yukainaA A/$"nakamaga$"popopopo-n){($b=$;)=~s!=!.*\\K/!;eval"s/$b/"}