##arrives:runsub whattodo;
##wish:runsub whattodo;
##examines:runsub whattodo;

##whattodo:
var $how to (slowly,quickly,calmly,happily);
var $ttt to (what is the world coming to?,do you like mondays?,my how you have grown!,did you learn anything today?);

say 'say',"[$actor] $how says '$ttt'";