18 lines
285 B
Plaintext
18 lines
285 B
Plaintext
|
#include <dec.ocm>
|
||
|
|
#include <printd.ocm>
|
||
|
|
|
||
|
|
seq
|
||
|
|
printd(output, "philosopher %d eats ice*n", 2048)
|
||
|
|
printd(output, "phil. %20d also*n", 65536)
|
||
|
|
chan link:
|
||
|
|
par
|
||
|
|
printd(link, "%d times %d makes 100*n", 10)
|
||
|
|
|
||
|
|
var c:
|
||
|
|
seq
|
||
|
|
c:='x'
|
||
|
|
while c<>'*n'
|
||
|
|
seq
|
||
|
|
link ? c
|
||
|
|
output ! c
|