(load "load4")
(setf *game-length* 100000)
(experiment 1 5 wnwn ans0)
(quit)
