Full code of the basic game Shut the Box, written in Scheme