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