
  TYPE
    oct$file_type = (occ$file, occ$library, occ$current);

