(* Objective Caml version of 99 Bottles of beer (Bottles.ml) *)
(* Philipp Winterberg, http://www.philipp-winterberg.de             *)

let b = ref 99
in while !b > 0 do
     print_int !b; print_string " bottle(s) of beer on the wall,\n";
     print_int !b; print_string " bottle(s) of beer.\n";
     print_string "Take one down, pass it around,\n";
     b := !b - 1;
     print_int !b; print_string " bottle(s) of beer on the wall.\n\n"
   done;;