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