(* Simple test of binding multiple values *)

let (x: int), (y: int) = 1,2

let main (p: unit) : int = x + y

let ((x : int) , (y :int)) = 3,3

let main_paren (p: unit) : int = x + y

let foobar : (int * int) = (23 , 42)
let (foo : int) , (bar : int) = foobar

let non_tuple_rhs (p: unit) : int = bar - foo