module bottles99
//  Compile with Clean 2.2 (http://clean.cs.ru.nl/) with Project:Project Options:No Return Type
import StdEnv

Start           :: *World -> *World
Start world
# (stdio,world) = stdio world
# (_,    world) = fclose (fwrites (foldr (+) "" [sing nr \\ nr<-[99,98..0]]) stdio) world
= world

the_wall        = " on the wall"

sing            :: Int -> String
sing n          = capitalize (bottles n) + the_wall + ", " + bottles n + ".\n"
                        +
                  if (n==0) 
                     ("Go to the store and buy some more, " + bottles 99 + the