fst : ('a * 'b) -> 'a
- fst (1, "foo"); > val it = 1 : int - fst (1, "foo", []); ! Toplevel input: ! fst (1, "foo", []); ! ^^^^^^^^^^^^^^ ! Type clash: expression of type ! 'g * 'h * 'i ! cannot have type ! 'j * 'k ! because the tuple has the wrong number of components - fst (1, ("foo", [])); > val it = 1 : int