[ InfixList from to tab filter i flag;
  print "^    ";
  for (i=from:i<=to:i++)
      if (tab-->(i-from))
      {   flag = true;
          if (tab == #array_names_array)
          {   Symb__Tab(INFIXTT_ARRAY, i);
              flag = ~~(temp__global3 & 16);
          }
          if (tab == #routine_names_array)
          {   Symb__Tab(INFIXTT_ROUTINE,i);
              flag = ~~(temp__global3 & 16);
          }
          if (tab == #constant_names_array)
          {   Symb__Tab(INFIXTT_CONSTANT,i);
              flag = (~~(temp__global3 & 16)) && (temp__global3 % 16 == filter);
          }
          if (flag) print (string) tab-->(i-from), " ";
      }
  new_line;
];