lang/occam/test/use_prnt.ocm

   1 #include <dec.ocm>
   2 #include <printd.ocm>
   3
   4 seq
   5         printd(output, "philosopher %d eats ice*n", 2048)
   6         printd(output, "phil. %20d also*n", 65536)
   7         chan link:
   8         par
   9                 printd(link, "%d times %d makes 100*n", 10)
  10
  11                 var c:
  12                 seq
  13                         c:='x'
  14                         while c<>'*n'
  15                                 seq
  16                                         link ? c
  17                                         output ! c