{{ Number Guesser
{{ Aaron Albrecht
{{ Juliet 2004.0

$lib

rout main
  def f:rat, c:rat

  #START
  printn "Pick a number between 1 and 10... Got it? Good. Is your   number..."
  printn "(1) 1 through 5"
  printn "or"
  printn "(2) 6 through 10"
  printn "?"
  def choice:int <- readi
  def choicea:int
  def choiceab:int
  def choiceb:int
  def choicebb:int

  cond choice = 1
    printn "Good. Is your number..."
    printn "(3) More than 3"
    printn "(4) Less than 3"
    printn "(5) Equal to  3"
    printn "?"
    choicea <- readi

    cond choicea = 4
      printn "Very cool. Is your number..."
      printn "(6) Less than 2"
      printn "(7) More than 1"
      choiceab <- readi
    
      cond choiceab = 6
        printn "Your number is 1"
    
      cond choiceab = 7
        printn "Your number is 2"

    cond choicea = 3
      printn "Very cool. Is your number..."
      printn "(8) Less than 5"
      printn "(9) More than 4"
      choiceab <- readi

      cond choiceab = 8
        printn "Your number is 4"
    
      cond choiceab = 9
        printn "Your number is 5"

    cond choicea = 5
      printn "Your number is 3"

  cond choice = 2
    printn "Good. Is your number..."
    printn "(10) More than 8"
    printn "(11) Less than 8"
    printn "(12) Equal to  8"
    printn "?"
    choiceb <- readi

    cond choiceb = 10
      printn "Very cool. Is your number..."
      printn "(13) Less than 10"
      printn "(14) More than 9"
      choicebb <- readi
    
      cond choicebb = 13
        printn "Your number is 9"
    
      cond choicebb = 14
        printn "Your number is 10"

    cond choiceb = 11
      printn "Very cool. Is your number..."
      printn "(15) Less than 7"
      printn "(16) More than 6"
      choicebb <- readi

      cond choicebb = 15
        printn "Your number is 6"
    
      cond choicebb = 16
        printn "Your number is 7"

    cond choiceb = 12
      printn "Your number is 8"