(print "------------------------------------------------")
(print "Testing repeat loops, multi-body fun")
(print)

(def beer
  (fun (n) :
    (repeat n times :
      (verse n)
      (n := (n - 1)))))

(def verse
  (fun (n) :
    (print n (bottles n) "of beer on the wall")
    (print n (bottles n) "of beer")
    (print "take one down, pass it around")
    (print (n - 1) (bottles (n - 1)) "of beer on the wall")
    (print)))

(def (bottles n) :
  (if (n == 1)
      then "bottle"
      else "bottles"))

(beer 3)