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