let add_hook f = I.add_hook (fun (a,b) -> f a b)