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