fun hash(bitstring): bitstring.

free c: channel.
free x, n: bitstring [private].

noninterf x among (n, hash(n)).

process
	out(c, x)

(* EXPECTPV
RESULT Non-interference x among (n[], hash(n[])) is true.
0.016s (user 0.016s + system 0.000s), max rss 8568K
END *)
