let
cast ev : t = cast ev ~kind:[
`
KEY_PRESS
;
`
KEY_RELEASE
]