getX : Point @$\rightarrow$@ Nat
getX p = Point.x p

getY : Point @$\rightarrow$@ Nat
getY record { x = a ; y = b} = b

xPlus5 : Point @$\rightarrow$@ Point
xPlus5 p = record p { x = (Point.x p) + 5}