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