{{ Random Number Program
{{ Juliet 2004.0

$lib

rout main
  def a:int, b:int, c:int

  print "Input lower bound: "
  a <- readi
  print "Input upper bound: "
  b <- readi
  print "How many numbers?  "
  c <- readi

  print nl & "Generating " & str c & " numbers x, where "
  print str a & " <= x <= " & str b & "..." & nl & nl

  loop c > 0
    print str random (a,b) & ", "
    c <- c - 1

  printn "Done..." & nl