  TYPE
    oct$predictor_header = record
      size_predictor: oct$predictor_size,
      number_module_predictors: llt$module_index,
      number_of_mod_ocv_elements: oct$max_offset_changes,
      mod_dictionary_ocv: REL (oct$predictor) ^oct$offset_change_list,
      number_of_ol_ocv_elements: oct$max_offset_changes,
      ol_dictionary_ocv: REL (oct$predictor) ^oct$offset_change_list,
    recend,

    oct$predictor = SEQ ( * );

*copyc llt$module_dictionary
*copyc oct$offset_change_list
*copyc oct$predictor_size
