let filter flt lst =
  List.filter (test flt) lst