let
apply_fct_crit ff to_select =
let
actions =
Fct_slice
.apply_add_marks ff to_select
in
actions