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;;