let ignore_exceptions f x = try ignore (f x) with _ -> ()