type nonce.

fun hash(nonce): nonce.

free c: channel.

process
	new n: nonce; new m: nonce;
	out(c, (m, choice[n, hash(m)]))

(* EXPECTPV
RESULT Observational equivalence cannot be proved.
0.028s (user 0.016s + system 0.012s), max rss 8836K
END *)
