diff --git a/warmup.ml b/warmup.ml
index c535b1c..a0f9152 100644
--- a/warmup.ml
+++ b/warmup.ml
@@ -31,7 +31,7 @@ let () = assert (syr 3 = 7)
 let rec next_nacci n l sum =
   if n = 0 then sum
   else match l with
-       | [] -> next_nacci (n - 1) [] sum
+       | [] -> sum
        | h :: t -> next_nacci (n - 1) t (sum + h)
 
 let nacci n k =