let define_filter x f = x.filter <- f x.filter