let ajouter = function x -> function y -> x + y;;
let f = ajouter 3;;
let g = ajouter 4;;
f 1;;
g 1;;