let register_event node name fn arg =
    node >>> set name (wrap_event (fun _ -> ignore (fn arg)))