I have obtained:

>       Caml Light version 0.7mac

#let rec from n = [< 'n ; from (n+1) >] ;;
from : int -> int stream = <fun>
#let rec version1 flot = match flot with
    [< 'n >] -> [< '(2*n) ; version1 flot >] ;;
version1 : int stream -> int stream = <fun>
#version1 (from 0) ;;
- : int stream = <abstr>
#let rec version2 flot = match flot with
    [< 'n ; version2 reste >] -> [< '(2*n) ; reste >] ;;
version2 : int stream -> int stream = <fun>
#version2 (from 0) ;;
Uncaught exception: Out_of_memory
#

Why ??
Thank's for the answer.

-------------------------------------------------------------------
Laurent CHENO teaching at / enseignant au
        Lycée Louis-le-Grand - 123 rue Saint-Jacques
        75231 PARIS CEDEX 05 - FRANCE
personal phone (33) 1 48 05 16 04 - fax  (33) 1 48 07 80 18
-------------------------------------------------------------------