(*3 : construire une liste*)

let rec f = function 
        0->[]
        |n -> n::f(n-1);;
(*val f:int -> int list =<fun>*)