%
% standard timing nucleus
% each survey member maintains its own exec stack
%
_commander any)?
{
%
% command in process, survey will execute
%
}
{
 [=Nucleus]
 [Any?]
 {
%
% wait for the nucleus commands to finish
%
 }
 {
  [=Chain]
  [Any?]
  {
%
% there is another command present, survey will execute
%
%
   [PopLast]
%%% "chain " log)(
   !commander
   "command" !mode
  
  }
  {
  } ifelse
 } ifelse
} ifelse