(define make-game-state
       (lambda (n m k) (cons k (cons n m))))
     
     (define size-of-pile
       (lambda (game-state pile-number)
         (cond ((= pile-number 3) 
                (car game-state))
               ((= pile-number 1) 
                (car (cdr game-state)))
               (else ;pile-number must be 2 
                (cdr (cdr game-state))))))