#! /usr/bin/env racket
#lang racket/base

(define lower 1)
(define upper 100)

(define (guess)
  (quotient (+ lower upper) 2))