A program that simulates the Monty Hall problem