#!perl -p
$p=" nakamaga popopopo-n";s/tou/$&sagi/;s/ama/$&usu/;s/akima/$&u/;s/$/kanku/ if/tt/;s/nwa/$&ni/;s/iwa/$&n/;s/^m.*/tanoshii$p/;s/u(nara)/$1ion/;s/you$/$&nagi/;s/s.*e$/yukaina$p/;s/ima$/$&nbou/;