(* Carsten Schuermann *)
(* Records *)

let 
  type cpr = {birthdate : int, number : int}
  val x :cpr = {birthdate = 111111, number = 222}
  val {birthdate = y, ...} = x
in
  y
end