ninety_nine_bottles.ml

open Printf
open String

let bottles n = match n with
  | 0 -> "no more bottles of beer"
  | 1 -> "1 bottle of beer"
  | n -> sprintf "%d bottles of beer" n
;;

let rec song n = match n with
  | 0 -> (
print_endline "No more bottles of beer on the wall, no more bottles of beer.";
print_endline "Go to the store and buy some more, 99 bottles of beer on the wall.")
  | n -> (
printf "%s on the wall, %s.\n" (bottles n) (capitalize (bottles n));
printf "Take one down and pass it around, %s on the wall.\n\n" (bottles (n - 1));
song (n - 1))
;;


song 99