beer.ml

let rec beer = function
  | 0 -> print_string "No more bottles of beer on the wall, no more bottles of beer.\n" ;
         print_string "Take one down, and pass it around, 99 bottles of beer on the wall.\n\n"
  | 1 -> print_string "1 bottle of beer on the wall, 1 bottle of beer.\n" ;
         print_string "Take it down, and pass it around, no more bottles of beer on the wall.\n\n"
  | n -> Printf.printf "%d bottles of beer on the wall, %d bottles of beer.\n" n n ;
         Printf.printf "Take one down, and pass it around, %d bottles of beer on the wall.\n\n" (n - 1);
         beer (n - 1)
    in beer 99 ;