program overwrite_w_cas
  call extract_ref
end