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