(define find_answer 
  (lambda (guess low high)
    (let ((response (check_response guess)))
      (if to-be-completed
          ans
          (if test-to-be-completed
              to-be-completed
              to-be-completed)))))
              
;; This function queries the user and returns 1 if the guess is high, -1 if the
;; guess is low and 0 if the guess is right

(define check_response 
  (lambda (guess)
    (begin
      (printf "My Guess is ~A.  Is that h,l,or e? \n" guess)
      (let ((response (read-char)))
        (cond ((char-ci=? response #\e) 0)
              ((char-ci=? response #\l) -1)
              ((char-ci=? response #\h) 1)
              (else (check_response guess)))))))
      
;                         
(define (make_new_guess low high)
to-be-completed)
;
(define (guess_game init_guess )
  (find_answer init_guess 1 100 ))
;
(guess_game  100 )

(define move
  (lambda (disc from to)
    (printf "move disc ~A from ~A to ~A~%" disc from to)))

(define hanoi
  (lambda (n to from scratch)
    to-be-completed))