sieve ( prime -- )

Vocabulary

channels.examples

Inputs

prime

an object

Outputs

None

Definition

USING: channels kernel threads ;

IN: channels.examples

: sieve ( prime -- )
    <channel> dup [ counter ] curry "Counter" spawn drop (sieve)
    ;