free c:channel.
free d:channel [private].
free s,k:bitstring [private].
fun h(bitstring):bitstring.

process
  out(d,0) |

  (!in(d,i:nat);
   out(c,choice[h((i,s)),h((s,i))]);
   out(d,i+1)
  )
  |

  !in(d,i:nat);

   out(d,i+2)

(* EXPECTPV
RESULT Observational equivalence is true.
0.024s (user 0.024s + system 0.000s), max rss 8736K
END *)
