/prog/ challenge (S(SKK)(SKK))(S(SKK)(SKK))

The challenge: Implement generators in the favourite language of yours.
Are banned: Language native generators (i.e. FIOC's yield), delimited continuations (sorry, Schemers, that would be too easy).

The test program will be an infinite generator that computes facts, and a loop that takes the first five of them.

The deadline is 17/04/2011 00:00 /prog/time.
The most complete, small and easy to use implementation wins.


open System

let facts = seq {
    while true do
        yield "MY ANUS"
        yield "MY AUTISM"
}

let compute n = Console.WriteLine("HAX {0}!", Seq.nth n facts)

for n = 1 to 5 do
    compute n

ignore(Console.ReadKey())