C8 Async Streams #F

asyncstream.fs

namespace global
open System
open System.Collections.Generic
open System.Threading.Tasks
namespace ExploreCsharpEight
type AsyncStreams() =
    member this.GenerateSequence() = 
        do 
            let mutable (i : int) = 0
            while (i < 20) do
                if i % 3 = 0
                then (* ERROR UnknownNode *)
                (* ERROR UnknownNode *)
                i <- i + 1
                i
        ()
    member this.ConsumeStream() = 
        for number in this.GenerateSequence () do
            Console.WriteLine ((sprintf "The time is %O::hh:mm:ss. Retrieved %O" DateTime.Now) number)
        0