let
getx p = p.getx p;;
let
setx p = p.setx p;;
let
p = point 1
in
getx (setx p 2);;
- : int = 2