let x = B.x + 1 let () = Printf.printf "%d\n" x