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