diff --git a/scripts/paragraphs.hs b/scripts/paragraphs.hs
index 2e93224ed5d7356dd5e15fd18a975d7423fd4300..2a4d0e041710f503b822e366c65a5a7021382831 100755
--- a/scripts/paragraphs.hs
+++ b/scripts/paragraphs.hs
@@ -18,12 +18,13 @@ articleParagraphs =
   fmap (fmap (leave . linearize False . enter) . splitOn "\n\n") . Text.readFile
 
 withMeta :: ArticleRecord @ Entry -> [Text] -> [(ParagraphMeta, Text)]
-withMeta (articleRecord :@: entry) paragraphs = zipWith f [1..] paragraphs
+withMeta (articleRecord :@: entry) paragraphs =
+  zipWith numberParagraph [1..] paragraphs
   where
     prodigyMeta = ProdigyMeta
       { totalParagraphs = length paragraphs
       , Prodigy.headword = Article.headword entry }
-    f paragraph paragraphText =
+    numberParagraph paragraph paragraphText =
       (articleRecord :@: Paragraph {paragraph} :@: prodigyMeta, paragraphText)
 
 to :: FilePath -> FilePath -> ArticleRecord @ Entry -> IO [ParagraphMeta]