resource b()
	op p (int i )

	send p (8888)
	send p (9999)
	send p (3333)
	send p (1111)
	for [ n = 1 to 4 ] {
		in p(i) by i -> write(i) ni
	}

	op q (real x )
	send q (0.4)
	send q (0.3)
	send q (0.5)
	send q (0.1)
	send q (0.2)
	for [ n = 1 to 5 ] {
		in q (x) by x -> write (x) ni
	}

	op r (char c )
	send r ('x')
	send r ('z')
	send r ('c')
	send r ('a')
	send p (3142)
	for [ n = 1 to 5 ] {
		in r (c) by c -> write (c)
		[] p (i) -> write(i)
		ni
	}
end
