type p = { x : int, y : int }

let x : p = { x = 0, y = 1 }<>