(define display-game-state
  (lambda (game-state)
    (newline)
    (newline)
    (display "    Pile 1: ")
    (display (size-of-pile game-state 1))
    (newline)
    (display "    Pile 2: ")
    (display (size-of-pile game-state 2))
    (newline)
    (newline)))

(define make-game-state
  (lambda (pile1 pile2)
    (cons pile2 pile1)))

(define size-of-pile
  (lambda (game-state pile-number)
    (if (= pile-number 2)
        (car game-state)
        (cdr game-state))))

(define sample-game-state (make-game-state 5 8))

(define a-pair (cons 3 *))

(define kons
  (lambda (a d)
    (lambda (selector)
      (selector a d))))
       
(define kar
  (lambda (krazy-pair)
    (krazy-pair (lambda (x y) x))))

(define kdr
  (lambda (p)
    (p (lambda (x y) y))))

(define a-krazy-pair (kons 3  *))

(define another (kons 5 a-krazy-pair))