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