let
cast ev : t = cast ev ~kind:[
`
ENTER_NOTIFY
;
`
LEAVE_NOTIFY
]