%
% standard timing nucleus
% each survey member maintains its own exec stack
%
[=Nucleus]
_commander any)?
{
%
% command in process, survey will execute
%
}
{
 [Any?]
 {
%
% there is another command present, survey will execute
%
%
  [PopLast]
%%% "nuc " log)(
  !commander
  "command" !mode
 }
 {
  *survidle
 } ifelse
} ifelse

%
% scale down the survey delay, increase execs, the more commands present
%
 _timing
%
%%% ActingBias = Math.Max(1.0 / (Int(Int(MepStack.Count / 3) + 1)), 0.07)
%
 [Count] dupnzis { + div } if
%%%% 2 div + 1.0 exch div .07 max mul normint
 pop
 30
 !interval