let
destruct obj =
(obj >>> get
"clientX"
>>> as_int,
obj >>> get
"clientY"
>>> as_int)