lang/occam/test/key.ocm

   1 #include "dec.ocm"
   2 var ch:
   3 seq
   4         output ! RAW
   5
   6         input ? ch
   7
   8         seq i=[0 for 10]
   9                 seq
  10                         decout(output, ch, 0)
  11                         output ! '*n'
  12                         input ? ch
  13
  14         output ! TEXT