diff --git a/R/r1.R b/R/r1.R
index f4f4803..e95f664 100644
--- a/R/r1.R
+++ b/R/r1.R
@@ -6,6 +6,10 @@ f1 <- function(n) {
   squares_sum
 }
 
-n <- 1:10000
 
+f2 <- function(n) {
+  sum(n^2)
+}
+n <- 1:10000
 f1(n)
+f2(n)