let remove me = List.filter (fun x -> me <> x)