{{ Average of ten numbers
{{ Made by Dr. Albrecht's Programming Languages class
{{ http://kevin.alteu.com/
{{ Juliet 2004.0

$lib

rout main
  def count:rat <- 1.0
  def sum:rat, number:rat

  printn "This program averages a list of 10 numbers from the keyboard."

  loop count <= 10
    print "Please enter number " & str count & ": "
    number <- readr
    cond count = 5
      printn "You are halfway there"
    sum <- number + sum
    count <- count + 1

  printn ("The average is: " & str (sum / 10))