method
add_hook f = hooks <- (f:
'
a
->
'
a
->
unit) :: hooks