CHAN TYPE CT.OUTPUT
  MOBILE RECORD
    CHAN BYTE data.in?:
:

PROC out.string (VAL []BYTE str, CHAN BYTE out!)
  SEQ i = 0 FOR SIZE str
    out ! str[i]
:

PROC main (CHAN BYTE kyb?, scr!, err!)
  MOBILE []CT.OUTPUT! outputs:
  MOBILE []BYTE b:
  SEQ
    b := "fail to compile"
    outputs := MOBILE [1]CT.OUTPUT!
    PAR i = 0 FOR SIZE outputs
      out.string (b, outputs[i][data.in]!)
:
