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}