// file: /yacco2/diagrams+etc/tokcanaccess.txt
  using namespace NS_yacco2_T_enum;
  using namespace NS_yacco2_terminals;
  using namespace yacco2;
  INT_SET_type filter;
  filter.insert(T_Enum::T_T_cweb_comment_);  
  tok_can_ast_functor walk_functr;
  ast_prefix_1forest rule_walk(*tree_ptr,&walk_functr,&filter,ACCEPT_FILTER);
  tok_can<AST*> comments_can(rule_walk);// container
  for(int x(0);comments_can[x] != yacco2::PTR_LR1_eog__;++x){
    T_cweb_comment* k = (T_cweb_comment*)comments_can[x];
    (*Wfile) << k->comment_data()->c_str() << endl;		
  }
