let rec crible s =
let rec first s =
let h, t = next s in
let t' = filter (fun x -> x mod h <> 0) t in
h, crible t' in
freeze (fun () -> first s);;
let premiers = crible (tl (tl entiers));;
nth premiers 100;; |