diff --git a/R/compliments.R b/R/compliments.R
index e0066f2..bffdae0 100644
--- a/R/compliments.R
+++ b/R/compliments.R
@@ -7,9 +7,9 @@
 #' @return A compliment string
 #'
 #' @export
-really_pretty <- function(name, follow_up = TRUE) {
+really_pretty <- function(name, follow_up = FALSE) {
 
-  compliment <- glue::glue("You're, like, really pretty, {name}.")
+  compliment <- glue::glue("You're, like, really pretty {name}.")
 
   if (follow_up) {
     compliment <- paste(compliment,
diff --git a/R/give_candygrams.R b/R/give_candygrams.R
index 8d71397..97f5873 100644
--- a/R/give_candygrams.R
+++ b/R/give_candygrams.R
@@ -30,12 +30,50 @@ give_candygrams <- function(person, number,
   number <- str_to_title(as.english(number))
 
 
-  glue::glue("{number} for {person}.")
+  glue::glue("{number} for {person}.{extra_message}")
 
 
 
 }
 
+
+#' Announces the number of candygrams for 1 or more people.
+#'
+#' @param people The candygram recipients
+#' @param numbers How many grams they got
+#' @param extra_message A vector of possible extra commentary.
+#'
+#' @return A candy gram announcement
+#'
+#' @importFrom stringr str_detect str_to_title
+#' @importFrom english as.english
+#'
+#' @export
+give_many_candygrams <- function(people, numbers,
+                            extra_messages = NULL) {
+
+  for (i in 1:length(people)) {
+
+    if(is.na(extra_messages[i])){
+
+      print(give_candygrams(people[i], numbers[i]))
+
+    }
+
+    else {
+
+      print(give_candygrams(people[i], numbers[i], extra_messages[i]))
+
+    }
+
+  }
+
+}
+
+people <- c("Ryan", "Lukas", "Richard", "David")
+numbers <- c(10, 10, 3, 20)
+extra_messages <- c("Incredible", NULL, NULL, NULL)
+
 #' Tacks commentary on to candygram announcement
 #'
 #' @param person The candygram recipient
diff --git a/README.md b/README.md
index 876c029..f06cad8 100644
--- a/README.md
+++ b/README.md
@@ -4,7 +4,6 @@
 # meangirls
 
 <!-- badges: start -->
-
 <!-- badges: end -->
 
 The goal of meangirls is to create quotes in the style of the 2004
@@ -92,7 +91,7 @@ You can also give extra commentary to your announcement:
 ``` r
 give_candygrams("Taylor Zimmerman", 2, 
                 extra_message = "Merry Christmas!")
-#> Two for Taylor Zimmerman.
+#> Two for Taylor Zimmerman. Merry Christmas!
 ```
 
 Some special cases trigger automatic extra commentary or special
@@ -100,10 +99,10 @@ behavior:
 
 ``` r
 give_candygrams("Glen Coco", 4)
-#> Four for Glen Coco.
+#> Four for Glen Coco. You go, Glen Coco!
 ```
 
 ``` r
 give_candygrams("Gretchen Weiners", 4)
-#> [1] "None for Grethen Weiners."
+#> None for Gretchen Weiners.
 ```