let
clear_event node name f =
node >>> set name (inject
Nil
)