Removing Coins from a Pile

   (remove-coins-from-pile game-state n p) ; given a state, returns a new
                                           ; state with n fewer coins in pile p
Q: (remove-coins-from-pile (make-game-state 9 6) 4 1)=__?__