##tickloc: runsub whattodo;

##wish:runsub kill;

##whattodo:
runsub kill/3;

##kill:
var $how to (slowly,quickly,quietly,loudly);
var $msg to (grrrs,purrrrs,meows);
say 'msg',"[$actor] $how $msg";