# this plays game 1
game(p,e)=if(ran(1) < (p-e))then(1)else(-1)
par eps=.005,pa=.5
ca'=ca+game(pa,eps)
@ total=100,meth=discrete,dt=1
done