Bah tout ce qu'on a réussi à apprendre c'est appliquer une fonction à plusieurs éléments d'une liste :

let rec apply = fun (f, []) ->
| fun (tete :: reste) -> f tete :: apply (f,reste);;

[edit]Je précise que c'est aujourd'hui qu'on a appris ça ^^