let option_hook cp f = cp#add_hook (fun _ _ -> f ())