let add_hook f = hooks := !hooks @ [f]