#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
