// Forme paresseuse
let st =
    let al = ref []
    async{
        let a = ref 1
        let b = ref 0
        let t = a
        while true do
            t := !b
            b := !a + !b
            a := !b
            al := !b :: !al
    }