type abc = int * int * int
let projection_abc (tpl : abc) : int = tpl.1
type foobar = int * int
let fb : foobar = (0, 0)
let projection (tpl : foobar) : int = tpl.0 + tpl.1
type big_tuple = int * int * int * int * int
let br : big_tuple = (23, 23, 23, 23, 23)