let freeze f = Delay f let rec entiers_depuis n = freeze (fun () -> n, entiers_depuis (succ n)) let entiers = entiers_depuis 0;;