diff --git a/extra/math/extras/extras.factor b/extra/math/extras/extras.factor
index fa02ea8e15..5d48e35181 100644
--- a/extra/math/extras/extras.factor
+++ b/extra/math/extras/extras.factor
@@ -96,6 +96,15 @@ PRIVATE>
 : moving-median ( u n -- v )
     <clumps> [ median ] map ;
 
+: moving-supremum ( u n -- v )
+    <clumps> [ supremum ] map ;
+
+: moving-infimum ( u n -- v )
+    <clumps> [ infimum ] map ;
+
+: moving-sum ( u n -- v )
+    <clumps> [ sum ] map ;
+
 : nonzero ( seq -- seq' )
     [ zero? not ] filter ;