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