A basic shut the box game, written in Scheme