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