#!perl -p
$_<2or$_=/^6$|28/?Kanzen:/^8|27/?Rippo:sqrt!~/\./?Heiho:2**$_%$_-2%$_?$_:So;s;\b\z;su!