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