ulong unzip (target_file_name, file_name, ulong fp_access_key)
{
  return arc_unzip (target_file_name, file_name),
  {
    arcproc_unzip arc_unzip = table[PR_UNZIP],
    { 
      pfunction[] table = pointer,
      {
        pointer = fptr_locate (fp_access_key)                            
      }
    }
  };
}