prag($proc_occ_body,8, index).
