makeFilter :: [Rule] -> Filter
makeFilter xs = foldl chainFilter emptyFilter (map implementRule (toSimples xs))
makeFilter :: [Rule] -> Filter
makeFilter xs = foldl chainFilter emptyFilter (map implementRule (toSimples xs))
makeFilter xs = foldl chainFilter emptyFilter (map implementRule (toSimples xs))