PROC keyboard.thinger(CHAN BYTE input?, CHAN INT out1!, out2!)  
  BYTE inchar:
  WHILE TRUE
    SEQ
      input ? inchar
      IF
        inchar = 'n'
          out1 ! 0
      IF
        inchar = 'i'
          out2 ! 0
      IF
        TRUE
          SKIP
: