# this plays game 2
game(p,e)=if(ran(1) < (p-e))then(1)else(-1)
par eps=.005,p2=.1,p3=.75,m=3
p=if(mod(ca,m)==0)then(p2)else(p3)
ca'=ca+game(p,eps)
aux pc=p
@ total=100,meth=discrete,dt=1
done