
  TYPE
    fst$catalog_depth = record
      case depth_specification: fst$depth_specification of
      = fsc$entire_subtree =
        ,
      = fsc$specific_depth =
        depth: fst$path_element_index,
      casend,
    recend;

*copyc fst$depth_specification
*copyc fst$path_element_index
