#9, 9.0, "9", `9`;;
- : int * float * string * char = 9, 9.0, 
"9", `9`
#let somme = function (x, y) -> x+y;;
somme : int * int -> int = <fun>
#let diagonale = function x -> (x, x);;
diagonale : 'a -> 'a * 'a = <fun>
#diagonale 2, diagonale 1.3 ;;
- : (int * int) * (float * float) = (2, 
2), (1.3, 1.3)
#let first = function (x, y) -> x;;
first : 'a * 'b -> 'a = <fun>
#first (1, 3);;
- : int = 1
#let (prem, sec) =  (1, 1.0);;
prem : int = 1
sec : float = 1.0