def verse(number) do
    with current_bottles <- bottles(number),
         next_bottles <- bottles(number - 1),
         take_text <- if(number > 1, do: "one", else: "it") do
      """
      #{current_bottles} of beer on the wall, #{current_bottles} of beer.
      Take #{take_text} down and pass it around, #{next_bottles} of beer on the wall.
      """
    end
  end