A program to automate monopoly