fun : int * int -> int
      fst ((x : int), (y : int)) = x

let main : int = fst (3, 4, 4)