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

let main : int = fst (3, 4)