(while(print((^s(regexp-replace*(read-line)#/iwa$/"iwan"#/nwa/"nwani"#/tou$/"tousagi"#/unara$/"naraion"#/you$/"younagi"#/akimasu$/"akimausu"#/asu$/"asukanku"#/ima$/"imanbou"#/ama$/"amausu"#/^m.*/#`"tanoshii,s"#/^su.*/#`"yukaina,s"))" nakamaga popopopo-n")))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).