Petit fonction couple caml

Bonjour,
J'aimerais fabriquer une petite fonction qui à un couple en entrer(un int et une int liste) qui qui retourne le première élément du couple et une autre fonction qui renvoie seulement la liste.
Mais la vraiment je sèche

En fait je voudrais refaire les fonction fst et snd mais je vous vraiment pas comment faire.
Pouvez vous m'aider ?

Merci