chainFilter :: Filter -> Filter -> Filter
chainFilter (Filter x) (Filter y) = Filter $ x ++ y
chainFilter :: Filter -> Filter -> Filter
chainFilter (Filter x) (Filter y) = Filter $ x ++ y
chainFilter (Filter x) (Filter y) = Filter $ x ++ y