let find_ff fi num =
  List.find (fun ff -> ff.T.ff_id = num) fi.T.fi_slices