##use:runsub whattodo;
##whattodo:if $actor eq $target then table else end;
##table:
say 'msg',"chairs appear around [$actor]";
say 'msg',"[$actor] says 'Please sit!'";