gistfile1.io

Stream := Object clone do (
    create := method(car, cdr,
        stream := self clone
        stream car ::= car
        stream cdr ::= cdr
        stream
    )
    each := method(k,
        k call(car)
        cdr each(k)
    )
    squareBrackets := method(index,
        if(index == 0, return car)
        cdr call [index - 1]
    )
)

Fibonacci number @ Stream

hoge := Stream clone do(
    fib := method(a, b,
        self create(a, block(
            fib(b, a + b)
        ))
    )
)
results := hoge fib(0, 1)
results [10] println // ==> 55