(*Obtiens la ligne suivante*)
let pascal liste=
let rec f acc =function
| [] -> acc
| hd::[] -> hd::acc
| hd::hd2::lt -> (f ((hd2+hd)::acc) (hd2::lt))
in (f [0] liste);;
(*obtiens la ieme ligne*)
let rec iemeLigne n=
let rec f acc = function
| 0 -> acc
| n -> f (pascal acc) (n-1)
in f [0;1;0] n;;