get $text;
if $text ne '' then thinkit else ponder;
##thinkit:
getgender $actor;
say 'grins',"[$actor] grins and says through $hisher teeth '$text'";
##ponder:
var $msg to (like a gremlin,from ear to ear,a little,alot);
say 'grin',"[$actor] grins $msg"