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