%
% stack: survey-flag server-name
%
% true for survey flag is push server action
%
exch
[=Survey]
{
% insure survey process is in stack
% stack: prev-stack server-name
 [Up]
 {
  dup - [@Index] third eq$
  {
   pop2 empty
   true
  }
  {
   pop
   false
  } ifelse
  ?
 } for
 any?
 {
  [Push]
 } if
}
{
% take the survey off the stack
% stack: prev-stack server-name
 [Up]
 {
% stack: prev-stack server-name stk-index
  dup - [@Index] third
  eq$
  {
% stack: prev-stack server-name stk-index
   -1 [Roll] [/]
% stack: prev-stack server-name
   true
  }
  {
% stack: prev-stack server-name stk-index
   pop
   false
  } ifelse
  ?
 } for
 pop
} ifelse