Simple producer, consumer example [occam-pi]

test.occ

#include "course.module"

PROC producer(VAL INT start, step, CHAN OF INT c!)
  INT count:
  SEQ
    count := start
    WHILE TRUE
      SEQ
        c ! count
        count := count + step
:

PROC main(CHAN BYTE kyb?, scr!, err!)
  CHAN OF INT c:
  INITIAL INT n IS 0:
  INT val:
  PAR
    producer(0, 4, c!)
    WHILE n < 10
      SEQ
        c ? val
        out.int (val, 0, scr!)
        out.string ("*n", 0, scr!)
        n := n + 1
: