10 Green Bottles - by teachers

Original code by PSW modified by Mike Leishman (but not tested)
to 10bottles
for [i 10 1 -1] [
print se :i [green bottle(s) hanging on the wall]
print se :i [green bottle(s) hanging on the wall]
print [If one green bottle should accidently fall]
print se  [There would be] (:i - 1) [bottle(s) hanging on the wall]] end