(counter) ( channel n -- )

Vocabulary

channels.examples

Inputs

channel	an object
n	an object

Outputs

None

Definition

USING: channels kernel math ;

IN: channels.examples

: (counter) ( channel n -- ) [ swap to ] 2keep 1 + (counter) ;