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